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INTRODUCTION 


This  report  contains  the  documentation  for  the  Secure 
Archival  Storage  System  hardware  architecture,  developmental 
monitor  program,  and  all  necessary  support  programs  to 
effect  programming  of  the  firmware.  The  hardware 
architecture  described  in  Appendix  A  provides  the  single 
board  computer  wire-wrap  options  and  security  modifications 
reauired  to  establish  the  hardware  configuration.  Appendix  3 
presents 

a  command  syntax  tutorial  for  the  monitor  program  and  the 
program  listing.  The  bootload  program  which  comprises  the 
current  firmware  is  listed  in  Appendix  C,  with  the  support 
program  and  methodology  for  changing  the  firmware  provided 
in  Appendix  E.  The  Bootstrap  program,  which  loads  and  runs 
the  Si'SS  demonstration  module,  is  presented  in  Appendix  D. 

The  bootload  program  (firmware)  has  been  tested  in  a 
single  processor  environment.  The  monitor  program  is 
currently  being  tested  and  debugged,  but  is  considered 
usable  as  presented  herein.  The  bootstrap  program  has  not 
been  sufficiently  tested  and  will  reouire  further 
development . 
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APPENDIX  A  -  Hardware  Architecture 


Presented  in  this  appendix  is  an  hardware  resource 
desription  meant  to  acquaint  unfamiliar  readers  with  the 
basic  architectural  devices  and  organization  referred  to  in 
this  thesis  effort.  The  information  necessary  to  reproduce 
the  same  hardware  architecture  is  also  contained  in  this 
appendix.  Hardware  familiarization  includes  the  Zilog  Z8000 
microprocessor,  the  Zilog  ZS010  Memory  Management  Unit 
(MMU),  and  the  Advance  Micro  Computer  Am96/4116  MonoBoard 
Computer.  What  follows  is  then  a  detailed  description  of  the 
5A3S  Developmental  Architecture  built  as  a  part  of  this 
thesis  effort,  to  support  the  implementation  of  '  the 
initialization  design  presented  in  this  thesis,  and  to 
support  follow  on  work  in  the  SASS.  The  intent  was  to  make 
this  appendix  the  hardware  reference  manual  in  support  of 
future  research  efforts.  Headers  requiring  more  specific 
information  on  the  hardware  are  referred  to  the  appropriate 
literature  listed  in  the  references. 

».  ZILOG  Z9000  MICROPROCESSOR 

The  Z8000  is  manufactured  in  two  versions,  the  48-pin 
ZSm  and  the  4?-pin  Z3002,  which  differ  only  in  the  manner 
and  range  of  memory  addressing.  Except  for  this  feature, 
called  memory  segmentation,  they  are  functionally  identical. 
The  Z8001  contains  seven  output  lines  for  segment  number 


selection  and  one  input  line  as  a  segment  trap  to  support 
memory  segmentat  ion .  Without  segmentation,  the  Z8002  can 
address  up  to  six  distinct,  external  memory  spaces  of  64K 
bytes  each,  while  the  segmented  Z8001  can  access  123 
addressable  segments  that  are  each  64K  bytes  in  size.  A 
total  of  8  Megabytes  can  be  addressed  in  this  way  with 
segmentation. 

The  CPU  operates  in  one  of  two  domains:  system  or  normal 
mode.  In  the  system  mode  all  features  of  the  processor  are 
available  to  the  runaing  program,  while  in  the  normal  mode 
the  running  program  is  isolated  from  potentially  dangerous 
activities,  such  as  instructions  for  basic  I/O  and  changing 
system  parameters. 

Multiprogramming  is  supported,  by  the  concommitant 
Test-and-Set  instruction  and  hardware  context  switching. 
Test-and-Set  instructions  allow  single  or  block  memory 
transactions  without  interruption,  thus  accommodating 
conventional  spin-lock  synchronization  and  concurrent 
read/write  access  to  shared  memory  in  a  single  processor 
environment.  Changing  the  running  environment  or  context  of 
a  process  requires  the  reloading  cf  the  execution  point 
which  is  defined  in  the  Z8000  by  two  unique  registers,  the 
Program  Counter  (PC)  and  the  Flag-and  Control  Word  (FCW). 
The  PC  holds  the  address  of  the  next  instruction  to  be 
executed  and  the  FCW  contains  the  mode  in  which  it  is  to  be 
executed.  Multiprocessing  is  facilitated  by  a  combination  of 
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instruction  and  hardware  features.  Bus  control  signals 
(PTTSRSC  and  BUSAK  pins)  arbitrate  the  use  of  the  •"ultiplered 
address  and  data  bus  by  external  devices,  i.e.  a  DMA  or  disk: 
controller.  The  Mult  i-Micro  control  signals  (Micro-In  and 
Micro-Out  lines)  when  used  in  conjunction  with  certain 
special  purpose  instructions,  allow  a  more  general  form  of 
resource  sharing  amoung  multiple  processors. 

In.  addition  to  the  above  required  attributes,  the  28000 
offers  several  very  flexible  architectural  features  that  can 
be  classified  as:  CPU  control  and  status,  register 
structure,  and  addressing  modes. 

1.  Register  Structure 

The  Z9000  CPU  is  a  register-oriented  machine  that 
provides  a  regular  register  structure  for  manipulating  bytes 
(8-bits),  words  (16-blts),  and  long-word  (32-bits)  values. 
The  instruction  set  provides  for  tit  and  nibble  (4-bit) 
access  to  the  various  register  contents.  The  sixteen  16-bit 
registers  in  the  architecture  can  be  referenced  as  sixteen 
6-bit,  sixteen  16-bit,  eight  32-bit,  or  four  quad-word 
64-bit  registers.  All  word  or  long-word  registers  (with  the 
exception  of  ?0  and  RP.0 )  may  be  used  as  general  purpose 
stack  registers  and  manipulated  with  the  PUSH  and  POP 
instructions.  The  H15  and  RR14  registers  are  the  stack 
pointers  used  by  the  Z8002  and  Z8001  respectfully,  when 
executing  CALL  and  RETurn  instructions,  and  when  processing 
interrupts  and  traps.  Pigure  A-l  shows  the  register 


structure  of  the  ZS002  processors.  The  Z8301  requires  a  R14' 
register  for  segmentation. 

Additional  special  registers  also  comprise  the 
register  architecture.  As  described  previously,  the 
execution  point  of  a  process  is  contained  in  two  unique 
registers,  the  Program  Counter  (PC)  and  the  Flag-and  Control 


Word  (7CW).  The  high  byte 

of 

the 

FCW  sets 

the  mode  of 

operation  of  the  processor 

by 

selecting 

normal/system, 

segmented/non-segmented  , 

and 

by 

enaoling 

or  disabling 

vectored  interrupts  (VI)  and  ron-vectored  interrupt  (NVI). 
The  lower  byte  of  the  FCW  contains  flags  that  may  be  used  by 
any  program  to  make  conditional  jumps  or  other  control 
decisions  affecting  program  flow  of  control.  These  flags  are 
set  or  .  reset  depending  on  the  results  of  preceding 
Instructions.  Figure  A-2  illustrates  the  organization  of  the 
program  status  registers. 

Exception  processing  is  directed  through  the  use  of 
another  special  register,  the  Program  Status  Area  Pointer 
'PSA?).  At  initialization  a  table  in  memory  must  be 
allocated  which  contains  all  the  FCV  and  PC  values  needed 
for  each  of  the  possible  internal  'traps)  and  external 
(interrupts)  events.  The  organization  of  this  Program  Status 
Area  pointed  to  by  the  PS AP  is  shown  in  Figure  A-3. 
Interrupts  are  external  asynchronous  events  reauiring  CPU 
attention,  generally  by  external  devices.  Traps  are 
synchronous  events  resulting  from  the  execution  of  certain 
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instructions.  Both  are  processed  in  a  similar  manner  by  the 
CPU.  The  processor  supports  three  tyoes  of  interrupts: 
non-maskable,  vectored  and  non-vectored»  and  four  system 
traps:  system  call,  unimplemented  instruction,  privileged 
instruction  and  segmentation  trap.  The  vectored  and 
non-vectored  interrupts  are  internally  maskable  within  the 
CPU.  When  an  exception  occurs,  the  current  program  status  is 
automatically  pushed  onto  the  system  stack.  The  program 
status  in  this  instance  refers  to  the  processor  status  (PC 
and  FCW )  and  a  16-bit  identifier  containing  the  reason  or 
source  of  the  exception. 

The  last  special  register  in  the  register  structure 
is  the  REFRESH  register,  which  is  designed  to  provide 
dynamic  memory  refreshing  on  an  estimated  demand  basis.  The 
upper  byte  is  loaded  with  a  refresh  rate  count  and  bit-15  is 
set  to  enable  the  memory  refresh  activity. 

2.  CPU  Control  and  Status 

The  Ze000  CPU  incorporates  three  control  input  lines 
and  four  status  output  lines.  Input  control  lines  change  CPU 
states,  while  the  status  output  lines  may  be  decoded  to 
indicate  internal  CPU  status  (e.g.,  instruction  fetches,  I/O 
references  or  interrupt  acknowledges). 

The  RESET  control  line  interrupts  normal  CPU 
operations  and  causes  the  CPU  to  clear  itself  completely 
'even  of  interrupt  and  bus  reauests).  Two  consecutive  read 
cycles  are  executed  in  the  system  mode  that  load  the  FCW 
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with  the  contents  of  memory  location  0002  ari  load  the 
contents  of  location  0004  into  the  PC.  In  the  case  of  the 
segmented  Z6001 ,  location  0004  contains  the  PC  segment 
number  and  0036  contains  the  offset  within  the  segment.  In 
either  case,  after  loading  of  the  initialized  system 
execution  point,  the  following  first  instruction  fetch  (IF1) 
starts  the  CPU  running.  This  first  PC  must,  of  course,  point 
into  executable  code,  typically  in  firmware. 

For  special  purposes,  external  devices  can  control 
the  execution  of  the  CPU  by  activating  the  STOP  control 
line.  This  freezes  the  next  instruction  without  loss  of 
"emery  refresh  as  occurs  with  bus  requests.  This  control 
line  can  be  used  to  synchronize  the  interactions  of  a  Z8000 
and  extended-processor  units  (EPU's),  which  can,  for  example 
jerform  floating  point  operations. 

The  WAIT  signal  input  will  allow  slower  external 
devices  to  stretch  the  number  of  clock  cycles  between  the 
address  strobe  (AS)  and  data  strobe  ( DS )  within  a  machine 
cycle,  for  as  long  as  necessary  to  receive  or  assemble  the 
data.  In  this  way,  a  16-bit  address  directs  a  16-bit  data 
transfer  that  is  essentially  independent  of  the  processor's 
clock  and  is  thus  asynchronous. 

Internal  CPU  status  indications  can  be  obtained  by 
decoding  the  four  output  status  lines  from  the  processor. 
Figure  A -4  lists  the  decoded  signals.  Decoded  status,  for 
example  can  be  used  to  segregate  program,  data  and  stack 
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ST  3:0 


CPU  STATUS 


0  0  0  0 
0  0  0  1 
0  0  10 
0  0  11 
0  10  0 
0  10  1 
0  110 
0  111 
10  0  0 
10  0  1 
10  10 
10  11 
110  0 
110  1 
1110 
1111 


Internal  Operations 
Memory  Refresh 
I/O  Reference 
MMU  I/O  Reference 
Segment  Trap  Acknowledge 
Non-Maskahle  Int  Acknowledge 
Non-Vectored  Int  Acknowledge 
Vectored  Int  Acknowledge 
Memory  Reference  -  Data 
Memory  Reference  -  Stack 
N/A 
N/A 

Memory  Reference  -  Code  (IFn) 
Memory  Reference  -  Cole  (I FI) 
N/A 
N/A 

CPU  Status  Lines 
FlitJRS  A-4 
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memory  areas.  Vhen  used  in  conjunction  with  the 
r ormal/sys tern  output  line  from  the  CPU,  six  distinct 
physical  memory  regions  can  be  formed:  normal  program,  data, 
and  stack,  and  system  program,  data,  and  stack.  The  four 
status  output  lines  allow  the  CPU  many  flexible  control 
options  over  external  devices. 

3.  Adressing  Modes 

The  addressing  mode  of  a  Z8000  instruction  defines, 
either  explicitly  or  implicitly,  the  address  space  it 
references  and  the  method  used  to  compute  the  address 
itself.  In  general,  ar.  addressing  mode  explicitly  specifies 
either  register  address  space  or  memory  address  space. 
Program  memory  address  space  and  I/O  address  spaces  are 
usually  implied  by  the  instruction.  Data  may  be  addressed  in 
eight  basic  modes:  Register  (R),  Immediate  (11“’),  Direct 
Address  (DA),  Indirect  Register  (IR),  Indexed  (X),  Relative 
Address  (RA),  Based  Address  (3A)  and  Base  Indexed  (BX). 

In  the  Immediate  mode  (IM),  the  data  is  part  of  an 
instruction  itself,  in  the  Register  mode  ( R ) ,  the  register 
to  which  the  operard  is  to  be  written  into  or  read  from  is 
specified.  The  address  of  the  operand  is  carried  directly 
with  the  instruction  in  the  Direct  Adressing  mode  (DA).  The 
IM,  R  and  DA  modes  all  require  that  the  operand's  address  be 
static  or  known  at  compile  time,  before  the  program  is  run. 


The  remaining  address  modes  allow  dynamic  or  runtime 
computation  of  addresses  and/or  displacements  in  registers. 
The  Indirect  Register  mode  assumes  the  address  of  the 
operand  to  be  placed  at  runtime  in  the  specified  register 
contained  in  the  instruction?  the  Indexed  mode  allows  a 
program  to  calculated  a  displacement  from  a  fixed  base 
address.  This  is  more  commonly  used  for  indexing  fixed 
tables.  The  Base  Address  mode  is  a  reflection  of  the  indexed 
mode  in  that  the  base  address  rather  than  the  displacement 
is  calculated  at  runtime.  A  common  use  of  this  mode  is  for 
accessing  identical  portions  of  different  Instances  of  a 
data  structure.  The  Base  Indexed  mode  combines  the  base 
address  and  indexed  modes  to  allow  the  creation  of  fully 
relocatable,  reentrant  code  (relocatable  specifies  that  the 
code  may  be  moved  to  any  location  in  memory,  and  reentrant 
neans  that  the  code  does  not  modify  itself).  The  final 
addressing  mode  is  the  Relative  mode,  inwhich  the  PC  is 
always  used  as  the  base  address,  combined  with  the  specified 
displacement  contained  in  the  instruction,  to  determine  the 
absolute  address. 

B  .  2 1 LOG  Z8010  MEMORY  MANAGEMENT  UNIT 

In  the  segmented  Z8001  processor,  the  addresses  actually 
manipulated  are  logical  two-dimensional  addresses  consisting 
of  a  ?-bit  segment  number  and  a  16-bit  offset  within  the 
segment.  The  Zllog  Z8010  Memory  Management  Unit  (MMU)  takes 
the  23-bit  logical  addresses  from  the  CPU  and  transforms 
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then  into  24-bit  absolute  addresses  for  addressing  physical 
memory[22l.  This  address  transformation  process  is  called 


relocation.  K  translation  table  of  registers  in  the  MMU 
associates  the  ?-bit  segment  number  (SN)  with  the  base 
address  of  one  of  64  diferent  physical  memory  segments.  The 
16-oit  offset  is  added  to  the  physical  base  address  to 
obtain  the  actual  physical  address.  Figure  A-5  illustrates 
the  relocation  process.  The  base  address  register  file  may 
be  dynamically  reloaded  as  processes  are  created,  suspended 
or  changed. 

The  MMU  also  provides  segment  protection  and  memory 
management  facilities.  Each  segment  can  have  several 
attributes  associated  with  it  that  provide  memory  access 
protection  (viz.  read/write  access,  normal/system  mode  only) 
and  memory  management  data  (viz.  whether  changed  or 
referenced ) . 

MMU  defined  segments  are  variable  in  size  ranging  from 
256  bytes  to  64K  bytes  in  increments  of  256  bytes.  Pairs  of 
64-segment  MMU's  are  necessary  to  support  the  128  segment 
numbers  available  from  segment  number  line  decodings. 

C.  AMD  Am96/4116  M0MC3CARD  COMPUTER 

.1  major  factor  in  the  selection  of  the  Zilog  Z8000 
family  of  microprocessors  vas  the  commercial  availability  of 
the  Advanced  Micro  Devices  (AMD)  Am96/4116  MonoBoard 
Computer  (MBC).  The  MBC  is  a  complete  microcomputer  system 
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24-bit  PHYSICAL  ADDRESS 


on  one  12.0  by  6.75  inch  printed,  multi-layered  circuit 
board.  The  MBC  version  available  at  the  outset  of  the  SASS 
project  contains  a  5Mhz  Z8002  non-segmented  processor,  32X 
bytes  of  random-access  memory  (RAM),  up  to  £K  bytes  of 
electronically  programmable  read-only  memory  (EPROM), 
programmable  serial  and  parallel  I/O  interfaces,  a  real-time 
clock  and  counter  system,  a  programmable  interrupt 
controller,  and  five  edge  connectors  providing  bus  and 
peripheral  interface  capability  [231 •  Figure  A-6  depicts  the 
^EC  architecture  in  block  diagram  form. 

Multibus  interfacing  is  through  standard  edge  connector 
?1 ,  which  supports  20-bit  addressing,  eight  bus  interrupt 
lines,  and  bus  arbitration  and  timing  lines.  The  Am9551 
serial  I/O  components  interface  offtoard  to  peripheral 
devices  through  edge  connectors  P4  and  P5.  Serial  port  1 
'P5)  supports  all  interconnections  of  a  standard  RS232C 
interface,  while  serial  port  2  (P4)  does  not  support 
synchronous  handshaking  capabilities.  Edge  connector  P3 
interfaces  the  three  8-bit  parallel  ports  (A,3,C),  from  the 
AmS255A  parallel  I/O  integrated  circuit.  All  of  the  inputs 
and  outputs  of  the  AmS5l3  Timing  Controller  chip  are 
available  through  edge  connector  P2. 

Included  on  the  AmS6/4116  is  a  32  source  interrupt 
jumper  matrix  for  input  to  any  of  the  eight  interrupt  inputs 
IRQ0  -  IRQ7)  of  the  Am8259A  Interrupt  Controller.  The 
Jumper  matrix  contains  bi-directional  Multibus  interrupt 
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MULTIBUS 


Zilog  Am96/4116  MonoBoard  Computer 
FIGURE  A-6 


« 
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interfacing  (INT0*  -  INT7*)  for  external  device  interrupt 
communications*  two  parallel  port  (C'  single  bit  sources  for 
use  as  software  generated  interrupts;  receive  and  transmit 
ready  signals  from  the  two  serial  I/O  components  for 
asynchronous  communications  with  peripheral  devices;  five 
timer  or  counter  output  signals  from  the  Am9513  IC;  and 
several  sources  from  the  onboard  fault  detection  circuitry. 
*11  interrupt  sources  are  available  as  a  28000  non-vectored 
interrupt  or  non-maskable  interrupt  as  well,  through  the 
interrupt  Jumper  matrix. 

The  Am8255A  parallel  I/O  component  provides  three  8-bit 
parallel  ports,  one  of  which  (C)  can  be  used  to  program 
under  software  control,  the  function  of  the  other  two  ports 
'A  and  B).  In  addition,  a  4-bit  portion  of  port  C  can  be 
used  as  a  Multibus  address  source  for  the  higher  address 
bits  ( AI10-AD13 ) ,  under  program  control.  The  significance  of 
this  will  be  seen  later  on.  Two  bits  of  the  C  port,  as 
mentioned  previously,  also  serve  as  signal  sources  for 
software  generated  interrupts. 

The  onboard  dynamic  RAM  (32K  bytes)  is  dual  ported,  with 
Multibus  access  controlled  by  an  onboard  control  logic.  This 
capability  is  designed  for  a  multi-processor  environment 
where  maximum  flexibility  of  available  physical  memory  is 
desired;  however,  the  SASS  design  goal  of  memory 
segmentation  cannot  tolerate  a  single  RAM  memory  space 
having  two  addresses  and  thereby  requiring  particular  care 
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to  disable  this  option.  The  MB C  can  support  an  optional  2, 
4,  "r  8K  byte  read-only  memory  'ROM)  in  a  shadow  mode;  the 
ROM  is  shadowed  over  existing  memory  space  by  CPU  direction. 
The  ROM  car  support  the  system  firmware. 

Provided  on  the  MBC  is  an  Am9513  Timing  Controller  that 
contains  five  Counter  Logic  Groups  consisting  of  a  16-bit 
general  counter  with  associated  control  and  output  logic,  a 
16-bit  Load  register,  a  16-bit  Hold  register  and  a  16-bit 
Mode  register  [20].  In  addition,  counter  groups  1  and  2  also 
include  16-bit  comparator  and  Alarm  registers.  The  Counter 
Mode  Register  is  used  to  control  all  of  the  individual 
options  available  with  its  associated  general  counter  group. 
The  Load  register  is  used  to  control  the  effective  length  of 
the  general  counter,  while  the  Hold  register  is  used  to 
store  accumulated  counter  values  for  later  transfer  to  the 
host  processor.  The  Alarm  and  comparator  registers  are  used 
to  detect  and  signal  specific  values  in  the  general  counter. 
2ach  of  the  counter  groups  can  serve  as  independent  or 
cascaded,  count-down  or  count-up  counters  with  gated  or 
nongated  count  sources.  Each  provides  an  output  signal  to 
the  interrupt  jumper  matrix  and  the  P2  edge  connector  for 
offboard  applications. 

CPU  onboard  accessing  of  the  individual  IC's  is 
accomplished  through  a  decoding  of  the  addresses  contained 
in  the  Z8000  IN/CUT  instructions*  components  are  enabled 
appropriately.  All  programmable  components  must  be 
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initialize!  to  some  consistent  state  as  the  first  step  in 


any  initialization  mechanism. 

D.  DEVELOPMENTAL  SYSTEM 

As  stated  previously,  the  primary  feature  desired  in  the 
SASS  Developmental  Architecture  (SDA)  is  the  external  bus. 
To  acheive  this,  the  Am96/4116  Monoboard  must  replace  the 
Zilog  Z8000  Development  Module  (DM)  which  has  previously 
been  the  platform  for  SASS  development.  Figure  A-7  shows  the 
end  product  after  the  substitution.  The  remaining 
developmental  components  from  the  original  system  consist  of 
the  Zllog  MCZ-1/05  Microcomputer  System  (MCZ)  and  a  CRT 
terminal.  A  firmware  monitor  program  for  the  MonoBoard  was 
needed  to  affect  the  substitution.  The  firmware  will  be 
discussed  under  the  SDA  to  follow. 

1.  The  Zilog  MCZ-1/05  Microcomputer  SystP’1 

The  MCZ-1/05  Microcomputer  System  is  a  disk-based 
microcomputer  unit,  utilizing  the  Z80  family  of 
microcomputer  cards.  The  basic  system  includes  two  boards:  a 
Z80  microcomputer  board  (MCB)  for  performing  primary  system 
control,  and  a  Z80  memory  disk  controller  (MDC)  for 
interfacing  the  dual  floppy  disk  drive.  These  two  cards 
constitute  the  basic  MCZ  system,  that  provides  60K  bytes  of 
RAM  memory,  3K  bytes  of  firmware,  control  of  the  disk  drive 
module,  and  communications  with  the  Z8000  MBC  through  an 
asynchronous  serial  RS-232  interface. 
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Supporting  software  consists  of  a  full-disk 

operating  system  (RIO),  which  includes  a  macroassembler, 

linker,  text  editor,  and  file  utility.  Details  concerning 

the  MCZ  hardware  or  software  can  be  found  in  the  listed 

references.  The  macroassembler  provides  for  assembling 

relocatable  object  modules  from  PLZ/ASM  language  source  code 

entered  with  the  ?IO  text  editor.  Higher  level  language 

• 

support,  as  PLZ/SYS,  is  currently  not  available  for 
developmental  use.  Subsequently  relocatable  modules  can  be 
linked  together  with  the  Linker  and  core  images  located  with 
the  Imager.  Object  files  are  then  downloaded  into  the  MBC 
memory  for  executing  and  debugging.  The  ability  to  upload 
from  the  MBC  memory  into  the  RIO  file  structure  is  also 
available. 

User  communication  with  the  RIO  operating  system  is 
via  the  development  terminal,  through  the  Am96/4116 
Mono3oard.  The  MBC  developmental  monitor  provides  for  three 
modes  of  operation:  1)  the  Monitor  Mode,  which  is  used  to 
enter,  debug  and  execute  software  residing  in  MBC  RAM*  2) 
the  Transparent  Mode,  which  is  used  to  transmit  data  between 
the  development  terminal  and  the  MCZ  system?  and  3)  the 
Upload/Download  Mode,  used  for  transferring  object  files 
between  MBC  memory  and  the  MCZ  microcomputer  system. 
Offboard  ?,m96/4116  MonoBoard  communications  with  the  MCZ 
system  and  the  development  terminal  is  asynchronous  through 
the  two  MBC  serial  ports  as  designated  in  Figure  A-7. 
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2.  Am96/4116  Configuration 


The  commercial  MonoBoard  provides  wire-wrap  options 
for  configuring  the  HBC  for  specific  applications.  The 
options  available  include  primary  memory  addressing  (both 
onboard  and  offboard),  interrupt/trap  source  selection,  and 
various  device  conf igura t  ion  settings.  An  appropriate 
wire-wrap  configuration  for  each  of  these  areas  was  defined 
from  requirement  consideration  of  the  SASS  and  the 
developmental  system.  Figure  A-9  lists  the  finalized 
MonoBoard  wire-wrap  configuration.  This  configuration 
results  in  the  following  interrupt  utilization  in  the  SASS 
Developmental  Architecture: 

Non-Vectored  Interrupt  -  Hardware  PRE-EMPT 
Vectored  Interrupts: 


INT0 

- 

Console  INT 

INTI 

- 

N/A 

INT2 

- 

MCZ  INT 

INT3 

- 

Onboard  PRE-EMPT 

I NT4 

- 

N/A 

INT5 

- 

Real  Time  Clock 

I NT6 

- 

Single  Inst.  Execution 

INT7 

- 

Illegal  Memory  Reference 

Interrupt  handler  routines  when  assigned  in  this  manner,  are 
supported  by  this  wire-wrap  configuration. 

For  compatability  with  the  Am96/4116  RAM  Memory 
Board,  address  bits  ALF  and  AD10  for  offboard  addressing 
were  switched.  Address  bit  ADF  uses  the  buffered 
Normal/System  CPU  signal  as  its  source.  When  the  secondary 
storage  device  (l.e.,  hard  disk)  is  installed,  offboard 
address  bit  AD11  should  be  sourced  to  the  instruction  fetch 
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signal  (I-FETCH*)  signal  by  connections  of  Dins  68-69  and 
38-39.  This  will  allow  code  execution  only  from  one  of  the 
two  memory  boards,  and  data  fetches  in  two  domains  within 
the  other. 

3.  Am96/4116  Modifications 

Global  memory  partitioning  by  domains  is 
accomplished  by  making  use  of  the  processor's  Normal /System 
signal  for  offboard  addresses.  Partitioning  of  onboard  local 
memory  is  more  difficult.  Use  of  available  onboard  logic 
gates  and  wiring  modifications  were  reouired  to  achieve  the 
desired  segregation.  In  the  SASS  design  for  MMU  simulation, 
a  portion  of  local  memory  must  be  accessible  in  the  system 
mode  only,  thereby  protecting  the  information  contained  in 
this  area  (i.e.,  the  Kernel).  For  simplicity  the  design 
choice  was  made  to  use  the  address  bit  ABE  to  equally  divide 
the  local  memory  space.  The  desire  is  to  make  the  lower  half 
(0000-3TF?)  accessible  in  the  system  mode  only  and  the  upper 
half  (4000-7FFF)  accessible  in  both  the  normal  and  system 
mode.  Given  those  two  signals,  the  following  truth  table  was 
derived : 
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ONBOARD  RAM  SELECT 
Pin  1  S3  -  194 
e000-77FF) 

GLOBAL  MEMORY  SELECT 
Pin  36  -  63  (ADF-AD10) 
62  -  37  (N/S-ADF) 
65  -  66  (N/S) 

PROM  SELECTION  (2716) 

Pin  25  -  27 
28  -  30 
177  -  178 
174  -  176 
71  -  72 


Pin  136  -  137 
148  -  162 
151  -  150 
153  -  154 
163  -  164 


INTERRUPTS 

Vectored  Interruots: 

(SSTT?)  Pin  130  -  115 

(IP.E06) 

Next 

command 

(0UT2) 

114  -  117 

( IRE05 ) 

Real  time  clock 

( RXR2 ) 

100  -  127 

(IREO0) 

Console 

Interrupt 

( EX HI ) 

101  -  123 

( IRE02 ) 

MCZ  Sys 

Interrupt 

( OUT4 ) 

116  -  95 

( I NT4* ) 

Multibus 

Preempt 

( 0UT5 ) 

112  -  121 

( IREQ3) 

Onboard 

Preempt 

(Suec  Mod) 

*  -  113 

(IF.E07) 

Memory 

Violation 

Non-Maskable 

Interrupts: 

(INTI*)  Pin 

79  -  128 

(  NMI  ) 

(Timeout) 

157  -  171 

( NMI  ) 

(Oddvcrd ) 

158  -  172 

(NMI  ) 

Non-Vectored 

Interrupt : 

1 I NT4* )  Pin  95  -  129 

(NVI  ) 

Hardware  Preempt 

Am96/41 16  MBC  Wire-Wrap  Options 

FIGURE  A-8 


POWERU?  RESST/INIT 
Pin  190  -  191 


BUS  CLOCK  SELECT 
Pi"  19  -  20 

DAI  SET -CHAIN  BUS  PRIORITY 
Pin  184  -  185  no  chain) 

21  -  22 

SERIAL  PORTS  4  &  5 

Pin  132  -  133  (RTS1-CTS1) 

139  -  140  (9600  BAUD) 

141  -  143  '9600  BAUD) 

179  -  190  (CTS2-GND) 

OTHER 

Pin  33  -  34 

39  -  39 

40  -  41 
42  -  43 

128  -  130 
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N/S* 

ADF 

~N/S* 

~ADE 

NAND 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 

0 

1 

1 

0 

1 

0 

0 

1 

1 

0 

NORMAL 

SYSTEM 


Address  Bit  Truth  Table 


Figure  A-9 


The  N AND  signal  becomes  the  new  ABF  bit. 

A  search  of  available  onboard  logic  gates  produced 
the  necessary  components  to  construct  the  circuitry,  and 
solder  connections  were  made  as  shown: 


Unlt21  Uni t34 


74S240  74S00 

(NOT)  (NAND) 


wire : 

Pin66 

to 

P6U21 

P14U21 

to 

P5U34 

P16U66 

to 

P4U21 

P16U21 

to 

P4U34 

P6U34 

to 

P13TJ66 

cut : 

P16U68 

to 

P13U66 

Address  Bit  Modification 
Figure  A -10 
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The  above  modification  produced  the  desired 
security,  however  addressing  in  the  normal  mode  below  4000 
HEX  produced  some  undesirable  effects.  For  instance,  a  write 
to  address  2000  HEX  would  actually  write  to  address  6000 
HEX,  unknown  to  the  user.  Another  design  decision  was  made 
to  prevent  this  occurence  by  providing  an  interrupt  source 
from  this  circuitry.  The  following  logic  generated  the 
interrupt: 


ABE 

~ABE 

'NAND ' 

+ 

'AND' 

1 

0 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

Interrupt  Truth  Table 
Figure  A-ll 


However,  precautions  must  be  taken  to  preclude  the 
generation  of  this  interrupt  when  addressing  global  memory 
from  8000-C000  HEX.  The  address  bit  ABF  was  used  to 
erable/disable  interrupt  generation  in  the  following 
circuitry: 
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„  supplied  to  tie  »B?  signal  for 

«•  aldltl0Ml  *rl""  ‘  circuitry  aa  Uterruut 

“-1”  <Ma  „  access  to  1..  -cal  — 

,INT7)  Is  generated  only 

in  the  normal  mode. 

(0000-3TT?)  is  r,ade  1 

*•  «*»”  — 

166  ^  ‘it.  e«  »tes  of  addressable  -or, 
lccess  —or,  sy  ^  loglc  for  maintain-*  stored 

a°d  onboard  control  -  a  u5osec  access  tine. 

4ata.  U  is  Multibus  conpatl^^  ^  ^  t0  ylti  tie 
Normal  installation  pro  ^  ^  6o,rds  In  »»« 

following  execeptions.  On  o  u  ls  allowed  to  pass 

system,  bus  address  comparator  (««> 
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address  bit  AD10  (N/S*)  to  onboard  logic  for  selection  of 
one  of  two  planes  of  32K  bytes  of  memory.  One  addressable  in 
the  normal  mode  and  the  other  addressable  in  the  system 
mode . 

As  mentioned  earlier,  when  a  suitable  secondary 
storage  device  is  installed  the  second  memory  board  can  be 
added  and  the  instruction  fetch  signal  (I-FETCH*)  can  become 
the  source  for  address  bit  AD11.  For  the  memory  board 
mentioned  above,  address  bit  AD11  will  be  forced  high  (Pin 
connections  60-59  removed)  and  the  second  board  will  have 
this  bit  pulled  low  (I-FETCH*)  on  the  comparator.  This 
provides  the  read-only  function.  No  additional  wiring 
modifications  are  reauired. 

C.  SUMMARY 

This  section  provided  a  brief  tutorial  into  the 
architecture  of  the  Z8000  family  of  microprocessors.  The 
intent  was  to  provide  the  reader  with  the  necessary  hardware 
background  to  understand  the  content  of  this  thesis,  and  to 
reconstruct  the  hardware  architecture  used  in  this  effort. 
In  answer  to  any  additional  auestions  that  may  arise,  the 
reader  is  encouraged  to  consult  the  referenced  literature. 
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APPENDIX  B  -  Developmental  Monitor  Program  Listing 


The  developmental  monitor  program  is  presented  in  this 
appendix  in  two  parts,  the  command  syntax  description  and 
program  listing.  The  command  syntax  description  is  a 
complete  users  manual  for  the  monitor  program.  The  program 
listing  contains  the  eight  program  modules  that  comprise  the 
PLZ/ASM  program  listing.  The  somewhat  unstructured  program 
appearance  stems  from  the  reauirement  to  maintain  the 
organizational  structure  of  certain  reauired  functions,  in 
particular  the  MCZ  system  communication  protocol.  A 
conscious  effort  was  made  to  preserve  the  original  command 
syntax . 

A.  COMMAND  SYNTAX 

The  developmental  monitor  consists  of  eleven  commands: 
four  performing  normal  development  functions  for  display  and 
setting  of  processor  memory  and  registers;  four  operations 
for  debugging  of  user  programs;  two  providing 
upload/download  capability  with  the  MCZ  system;  and  one 
command  for  entering  a  transparent  mode  of  operation  between 
the  MCZ  system  and  the  user  console.  A  command  line 
description  is  presented  for  each  command.  Command  line 
representations  adhere  to  the  following  conventions: 
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(1)  the  use  of  angle  brackets  <>  denotes  a  required  entry, 

2 )  the  use  of  square  brackets  []  denotes  an  optional  entry. 

The  command  lines  serve  as  a  ready  reference  for  command 
syntax  familiarization  in  the  following  descriptions. 

1.  DISPLAY  Command 

D[isplay]  <adr>  [no.  words] 

The  display  command  can  be  used  to  perform  two 
operations:  the  display  of  a  block  of  memory  in  word  format 
(16-bits),  and  to  display  the  contents  of  a  single  address 
with  the  option  to  change  the  contents.  Use  of  the  command 
with  a  starting  HEX  address,  followed  by  a  hexadecimal 
number  indicating  the  number  of  words  desired,  will  display 
the  contents  of  a  block  of  memory.  Use  of  the  command 
followed  by  a  single  address  enters  a  substitution  mode.  The 
contents  of  the  single  address  will  be  displayed  on  the 
console  followed  by  a  prompt  (*)  indicating  to  the  user  that 
he  has  three  options:  (1)  entering  a  new  value  will  change 
the  contents  of  that  location,  (2)  entering  a  carriage 
return  <CR>  sequentially  steps  through  memory  leaving  the 
contents  unchanged,  and  (3)  entering  a  '0'  will  terminate 
the  substitution  mode  of  operation  and  return  control  to  the 
monitor  program. 
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2.  REGISTER  Command 

Roister]  [register  name] 

The  register  command  displays  the  current  contents 
of  registers  R0-R15,  PC  and  FCW .  Use  of  the  command  alone 
will  display  the  current  contents  of  all  registers  and 
return  to  the  monitor.  Use  of  the  optional  register  name 
will  enter  a  substitution  mode  as  described  above,  and 
proceed  sequentially  until  either  a  '0'  is  entered  or  all 
registers  have  been  displayed.  Control  is  then  returned  to 
the  monitor. 

3.  ’dCVE  Command 

M[ovel  <old  adr>  <new  adr>  <no.  bytes> 

The  move  command  moves  the  contents  of  the  specified 
block  of  memory  to  a  new  location,  without  altering  the 
contents  of  the  old  locations.  The  old  address  and  number  of 
bytes  specifies  the  block  to  be  moved?  and  the  new  address 
specifies  the  new  starting  address. 

4.  FILL  Command 

F[ill]  <start  adr>  <end  adr>  <data> 

The  fill  command  changes  the  memory  contents 
inclusively  from  the  specified  starting  address  to  the 
ending  address,  with  the  user  supplied  hexidecimal  data. 
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5. 


C 0  Command 


G  Col 

The  <50  command  starts  user  nrogram  execution  at  the 
execution  point  defined  by  previously  user  set  PC  and  ?CW 
registers . 

6.  JUMP  Command 

J[ump]  <start  adr> 

The  jump  command  starts  execution  of  a  user's 
program  from  the  address  specified,  using  the  current  PC W 
register  value. 

7.  BBEM  Command 

B[reak]  [address]  [no.  breaks] 

The  break  command  is  used  to  set  a  break  point 
within  a  user's  program.  When  the  break  point  is  encountered 
during  normal  execution  of  the  user  program,  execution  is 

*  f 

,  * 

terminated,  user  registers ^nd  program  status  is  saved,  and 
the  message  '3F.E*I  JT  <address>'  is  sent  to  the  console.  Use 
of  the  break  command  alone  will  clear  any  set  break  points. 
User  has  the  option  of  specifying  the  number  of  times  that 
the  break  point  must  be  encountered  before  program  execution 
is  terminated?  the  default  value  is  1. 
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3. 


NFXT  Command 


N[ext]  [no.  instructions] 

The  next  command  is  used  to  single  step  through  the 
execution  of  a  user's  program.  The  contents  of  the  CPU 
registers  after  each  instruction  execution  are  displayed  to 
the  user.  Multiple  instruction  executions  can  be  optionally 
entered  by  the  user?  the  default  value  is  1. 

9.  QUIT  Command 
0 [ui t] 

Use  of  the  quit  command  places  the  MonoSoard  in  a 
transparent  mode  where  it  performs  as  a  communication  relay 
between  the  MCZ  RIC  operating  system  and  the  user  console. 
To  the  user  the  appearance  is  complete  operation  within  the 
MCZ  system.  To  exit  the  transparent  mode,  the  Non-Maskable 
Interrupt  (INTR  switch)  must  be  given,  which  saves  user 
registers  and  returns  control  to  the  monitor. 

10.  LOAD  Command 

L[oad]  <filename>  [load  air] 

The  load  command  downloads  program  files  from  the 
MCZ  RIO  file  structure  into  the  Z2000  system  for  execution. 
The  load  address  can  be  optionally  specified;  default  is  to 
the  load  address  pass' '  with  the  file  from  PIC.  After  a 
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successful  download  operation,  the  message  'ENTRY  P  C I  T 
<address>'  is  sent  to  the  console  showing  the  load  address 
used . 

11.  SEND  Command 

S  [end]  <filename>  <start  adr>  <end  adrN  [entry  adr 

The  send  command  is  used  to  save  the  contents  of  a 
specified  block  of  Z 8000  memory  within  the  RIO  file  system. 
The  optional  entry  address  becomes  the  default  load  address 
for  downloading  with  the  load  command;  otherwise  the  start 
address  becomes  the  default  address. 

12.  Alerts 

Within  the  hardware  architecture  are  certain 
interrupts  that  require  user  notification  on  occurrence.  The 
following  is  a  list  of  the  current  interrupt  messages: 

'N  MI '  Results  from  a  Non-Maskable 

interrupt  generation  by 
depression  cf  INTR  switch. 

'ILLEGAL  MEMORY  REFERENCE'  Results  from  illegal 

memory  reference  in 
normal  mode. 

'UNKNOWN  TRAP'  Results  from  interrupt/trap 

not  currently  used  in  the 
architecture . 

What  follows  in  the  next  section  is  an  annotated 
source  listing  for  the  monitor  program. 
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E.  MONITOR  PROGRAM  LISTING 


1.  EXECUTI /E  MODULE 


Z8000ASM  2.02 

LOC  OBJ  CODE  STMT  SOURCE  STATEMENT 


1  SXEC_DMON I  TOR  MODULE 
^LISTON  STTY 


CONSTANT 

RXR 

TXR 

PAR 

PORTAD 

PORTBD 

PORTAC 

PORTBC 

IDPORT 

ICPORT 


=  2 
=  0 
=  7 

=  SFFD9 
=  %7TE1 

=  %FFDB 
=  %FFE3 

=  %FFCB 
=  %FFC9 


TCMD  :=  %FFD2 
TDT A  :=  %FFD0 


BUS  LOCK  :=%FFF9 

3US~UNL0CK  :=%FFF3 

7INTR  :=  %( 2)0001000000000000 

VIBIT  :=  12 


ESCAPE 

%13 

BS 

%09 

LINDEL 

%7F 

CR 

= 

%0D 

LF 

= 

%0  A 

TXOFCH 

= 

%13 

TXONCH 

= 

311 

INSIZ 

= 

128 

!  INTBUF  SIZE 

; 

OUTSIZ 

= 

128 

!  OUTBUF  SIZE 

i 

RBSIZ 

256 

!  RING  BUFFER 

SIZE 

BIT  POSITIONS 

IN  MONITOP 

FLAG  WORD  ! 

TRPMDE 

= 

0 

I  STOP 
OSTOP 
SNDMDE 


1 

2 

3 


LDMDE 

ESC 

TXMSK 


4 

5 

%6 
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COMDS 


11 


TYPE 

SWITCH  RECORD  [  ECW  WORD 

PC  "  WORD  1 


INTERNAL 

$SECTION  DATA  DEC 
$  A3S  0 


0000 

INTBUF 

ARRAY 

‘128  BYTE! 

0080 

0UT3UF 

ARRAY 

‘128  3YTE] 

0100 

RNGBUF 

ARRAY 

^256  3YTE] 

0200 

MCZBUF 

ARRAY 

]256  BYTE] 

0300 

BUFADR 

WORD 

0302 

BDFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTR 

WORD 

0316 

BRKADR 

WORD 

0318 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

031C 

MFLAGS 

WORD 

!  USER  REGISTER  STORAGE  1 

03  IE 

R0 

WORD 

0320 

Rl" 

WORD 

0322 

R2~ 

WORD 

0324 

R3~ 

WORD 

0326 

R4~ 

WORD 

0328 

R5~ 

WORD 

032  A 

R6 

WORD 

032C 

R?" 

WORD 

032E 

R9~ 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll" 

WORD 

0336 

R12" 

WORD 
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I 


3336 

R13 

WORD 

333A 

R 14 

WORD 

033C 

P.15 

WORD 

3335 

RPC 

WORD 

0340 

RECl 

WORD 

0342 

RETRY 

WORD 

0344 

ADR  STR 

WORD 

0346 

CMDTBL 

ARRAY  [12 

0000 


INTERNAL 

^SECTION  PSA  DATA 
$A3S  0 

PSA  PECORD  [ 

DATA  AREA 
CODE_ARSA 
UN  IMP  INST 
PR IV  INST 
SYSTEM  CALL 
SEG  TRAP 
NMI~I NT 
NV  I_  I N  r 
VEC  FCW 
VEC_PC 
1  ' 


WORD 

WORD 

SWITCH 

SWITCH 

switch 

SWITCH 

SWITCH 

Switch 

WORD 

ARRAY  [200  WORD! 


INTERNAL 

^SECTION  BOOT  DATA 
$A3S  0 

0000  BOOT  COM  RECORD  [ 


► 

TABLE  LOCK  WORD 
SIGNAL  word 

MSG 

1  WORD  ] 

^SECTION  EXEC  PROC 

EXTERNAL 

it 

GETLNE 

PROCEDURE 

NMI 

PROCEDURE 

IMPINT 

PROCEDURE 

%. 

SNDCHR 

PROCEDURE 

7! 

h 

SNDMSG 

PROCEDURE 

MEMINT 

PROCEDURE 

FAIL  SAFE 

PROCEDURE 

"  • 

CLK  STORE 

PROCEDURE 

MCZHND 

PROCEDURE 

* 

CONINT 

PROCEDURE 

t 

DISPLAY 

PROCEDURE 

GET3UF 

PROCEDURE 

FILL 

PROCEDURE 

I 
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MOVE 

PROCEDURE 

REGISTER 

PROCEDURE 

GO 

LABEL 

BF.E'K 

PROCEDURE 

JUMP 

PROCEDURE 

NEXT 

PROCEDURE 

QUIT 

PROCEDURE 

SEND 

PROCEDURE 

L0AD7L 

PROCEDURE 

GETCHR 

PROCEDURE 

GLOBAL  EROR 

LABEL 

GLOBAL  EXEC 

LA3EL 

0000 

GLOBAL  INITL  PROCEDURE 

I  ##**#*#**#*****  ft**######*#*#**#**:**#*#*]!' 

*  DMONITOR  INITIALIZATION  * 

ENTRY 

ORGADR: 

0000 

3807 

JR 

ST  ART P 

PHYS.  ID: 

0002 

3171 

WVAL 

%P1P1  !  UNIQUE  PHYS.ID  ! 

LOGO: 

0004 

07 

BVAL 

%07 

0005 

2A 

BVAL 

* 

0006 

5341 

WVAL 

'Sk' 

0008 

5353 

WVAL 

'SS' 

000A 

2044 

WVAL 

'  D' 

000C 

4D47 

WVAL 

'MO' 

000E 

4349 

WVAL 

'N I  ' 

0010 

5447 

WVAL 

'TO' 

0012 

52 

BVAL 

'P.' 

0013 

0D 

BVAL 

%0D 

CMDCHR: 

0014 

4446 

WVAL 

'DP' 

0016 

4D52 

WVAL 

'MR' 

0018 

514C 

WVAL 

'QL' 

001A 

4A4E 

WVAL 

'JN' 

001C 

4753 

WVAL 

'GS' 

0013 

4220 

WVAL 

'3  ' 

!  START  CF  INITIAL  ENTRY  TO  DMONITOR  ! 
START?: 

*  RESET  CODE  AREA  AND  DATA  AREA  REGS  * 


!  RESET  DATA  • REA  AND  CODE  AREA 


0020 

7D25 

LDCTL 

P.2,  PSAPOFF 

0022 

612E 

LD 

R14  ,  DATA_ARFA  '  ?.2  ) 

0024 

0000 

0026 

8DE4 

TEST 

R14 

0028 

EE02 

JR 

NZ.SET  OTHERS 

002  A 

210E 

LD 

R14,#r?A00 

002C 

7A00 

SET  OTHERS: 

002E 

340C 

LDA.R 

R 12 , ORGADR 

0030 

FFCE 

0032 

6F2C 

LD 

C0DE_AREA(R2) ,R12 

0034 

0002 

0036 

6F2E 

LD 

DATA_ARZA(R2) .Hit 

0038 

0000 

REGISTERS  ! 


!  SAVE  NEW  CODE  ! 
!  3ASE  AD?  ! 


J  ***** ***$*##*>*!(£  a*##*:# «*#*«#* 

*  * 

*  SFTW  INIT:  INITIALIZES  ALL  BASIC  * 

*  “  DATA  STRUCTURES  FOR  THE  * 

*  NORMAL  FUNCTIONING  OF  * 

*  DMONITOR.  * 

*  # 
**************************************:',:*  | 


!  CLEAR  DMONITOR  RAM  AREA  ! 


003 A 

76E2 

LDA 

R2 .EUFADR (R14) 

003C 

0300 

003E 

A121 

LD 

H1.R2 

0040 

A911 

INC 

P.l  ,#2 

0042 

2103 

LD 

33  ,#66 

0044 

0042 

0046 

0D25 

LD 

<??2,  #0 

0048 

0000 

004A 

3B21 

LDI  a 

<?Sl,0R2fR3 

004C 

0310 

!  LD  FIXED 

DATA  IN  RAM  ! 

004E 

34E7 

LDA 

R7,R14(#INTBUF 

!  CLR  DMONITOR  RAM  ! 


0050  0000 
0052  33E7 
0054  0304 


LD 


R14(#INT?TR) ,R7 


0056 

34E7 

LDA 

R7 ,R14 ( #OUTBUF ) 

0058 

0080 

C05® 

33E7 

LD 

R14(#CUTPTR) ,R7 

005C 

0306 

005E 

34E3 

LDA 

R3,R14(#UNIMP) 

0060 

0308 

0062 

0D35 

LD 

OF  3, #%0E00 

0064 

0E00 

0066 

34E3 

LDA 

33  ,H14(#BRKCNT) 

0068 

030  A 

00  6A 

4DE8 

CLH 

SETCUT (R14 ) 

006C 

030E 

006E 

4DE8 

CLR 

NXTPTR ( R14 ) 

0070 

030C 

'*  INITIALIZE  PROGRAM  STATUS  AREA  * 

#  *  *  #  *  *  #  #  #  *  #  #  #  #  #  *  :j:  s*  *  i{t $  *  $  $  £  #  ^  *  4c  :\i  #  #  ajt  $  *  #  *  * 

0072 

7D25 

LDCTL 

R2  .PSAPOFF 

0074 

76C4 

LDA 

R4,FAIL_SAFE(R12) 

0076 

0000* 

0078 

A923 

INC 

R2,#4 

007A 

2F24 

LD 

0F:2,R4 

007C 

A123 

LD 

R3,R2 

007E 

A931 

INC 

R3f#2  !  FAILSAFE  PSA  ! 

0080 

2104 

LD 

R4,#24 

0082 

0018 

0084 

BB21 

LDIR 

0R3,0R2 , 34  !  SETUP  PSA  ! 

0086 

0430 

0088 

7D25 

LDCTL 

R2.PSAPCFF 

008A 

2101 

LD 

R1 ,  #*54000 

008C 

4000 

008E 

3423 

LDA 

R3  ,R2  (#UNIf"!P_INST ) 

0090 

0004 

0092 

76C4 

LDA 

R4  ,  IMPINT  f  P.12 ) 

0094 

0000* 

0096 

3334 

LD 

R3(#2),R4 

0098 

0002 

009A 

8D48 

CLR 

R4 

DO 

009C 

7331 

LD 

R3(R4),R1 

009E 

0400 

00A0 

A943 

INC 

R4,#4 

00A2 

0B04 

CP 

R4,#28 

00A4 

001C 

00A6 

E601 

JR 

Z, LD_PC 

!  LOAD  SMI  HDLR 


00  A8 

E8T9 

OD 
LD_PC  : 

00  A  A 
00AC 

3423 

0014 

LDA 

00AE 

00B0 

76C4 

0000* 

LDA 

00E2 

00B4 

3334 

0002 

LD 

00B6 

00B8 

3423 
001 E 

LDA 

00B  A 
00BC 

34C2 

0000* 

LDA 

003E 

00C0 

3332 

0000 

LD 

00C2 

00C4 

34C2 

0000* 

LDA 

00C6 

00C8 

3332 

0004 

LD 

00CA 

00CC 

34C2 

0000* 

LDA 

00CE 

00D0 

3332 

000E 

LD 

R3,F2(#NMI_INT ) 

R4.NMI  (R12 ) 

R3  ( #2  )  ,  R4 

SET  INTERRUPT  HANDLERS  ! 

R3,R2(#VEC_PC)  !  BASE  OF  INT  VEC! 

R2  ,  R12  ( #CON INT  )  !  CONS  INPUT! 

R3(#0 ) ,R2 

!  MCZ  INPUT  ! 

R2, S12(#MCZHND> 

P.3(#4)  ,P2 

MEMORY  ACCESS  VIOLATION  ! 

R2, R12( #MEMINT ■ 

R3( #14 ) , R2 


J  #*#*#*$##*  s*#**#*:;:****#:*## 

*  SET  STACK  POINTER  * 


00U2 

A1E7 

LD 

315 

00D4 

010F 

ADD 

?15 

00L6 

05F0 

00D8 

6FEF 

LD 

315. 

00DA 

033C 

R14 

*?05F0  !  SET  STACK  POINTER  ! 

(R14 )  ,R15 


r  **«$#*##>*# 

*  INITIALIZE  COMMAND  JUMP  TABLE  * 


!  INIT  COMMAND  JUMP  TABLE  ! 


00DC 

34E1 

LDA 

R1,R14(#CMDTBL '  !  BASE  ADR 

00DE 

0346 

00E0 

34C2 

LDA 

R2,R12(#DISPLAY) 

00E2 

0000* 

00E4 

3312 

LD 

ai(#0) ,32 
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?eE6 

00E8 

0000 

34C2 

LDA 

R2,P12(#FILL) 

00EA 

Z0EC 

0000* 

3312 

LD 

Rl( #2) ,R2 

00EE 

00E0 

0002 

34C2 

LDA 

R2,R12(#*0VS) 

00F2 

00F4 

0000* 

3312 

LD 

R1(#4),B2 

00F6 

00F8 

0004 

34C2 

LDA 

R2,R12(#R£GISTER) 

00  FA 
00FC 

0000* 

3312 

LD 

R1  (#6 ) ,R2 

00FE 

0100 

0006 

34C2 

LDA 

P2,R12(#QUIT) 

0102 

0104 

0000* 

3312 

LD 

Rl(#e),R2 

0106 

0108 

0008 

34C2 

LDA 

R2 ,R12 ( #LOADFL ) 

010A 

010C 

0000* 

3312 

LD 

PI (#10 ) , R2 

010E 

0110 

000A 

34C2 

LDA 

R2,R12(#JUMP) 

0112 

0114 

0000* 

3312 

LD 

R1(#12)  ,R2 

0116 

0116 

000C 

34C2 

LDA 

?2,R12(#NEXT) 

01 1A 
011C 

0000* 

3312 

LD 

R  1(#14),R2 

011E 

0120 

000E 

34C2 

LDA 

R2,R12(#G0) 

0122 

0124 

0000* 

3312 

LD 

P.l(#16)  ,R2 

0126 

0128 

0010 

34C2 

LDA 

R2,Rl2(#SEND) 

012A 

012C 

0000* 

3312 

LD 

Rl(#18 ) ,R2 

012E 

0130 

0012 

34C2 

LDA 

T.2,R12(#BREAK) 

0132 

0134 

0000* 

3312 

LD 

R1 ( #20  ) , R2 

0136 

0014 

1 

!  DISPLAY 

LOGO  1 

0138 

3402 

LDAR 

R2 , LOGO 

013A 

013C 

FEC8 

34CA 

LDA 

R10 ,R12 ( #SNDMSG ) 

013E 

0140 

0000* 

1FA0 

CALL 

GR10 
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!  R12  =  START  OF  CODE  ! 

!  R14  =  START  OF  DATA  AREA  ! 

!  R1 5  =  STACK  POINTER  ! 

t  #$***$*»*$  #*#**  *#*#**$#***£* 

’*  BASIC  CONTROL  OF  DMONITOR  * 

********#****##*#**#**##:)(  a*#**#**###****#  { 


EX  EC  : 


0142 

340C 

LDAR 

R12 , ORGADR 

3144 

FEBA 

0146 

7D15 

LDCTL 

R1  .PSAPOFF 

0148 

211E 

LD 

R14.0R1 

014A 

3401 

LDAR 

HI , EXEC 

014C 

FFF4 

014E 

93F1 

POSH 

(?R15 ,  R1 

0150 

31  El 

LD 

?.l  ,R14(#HFLA5S) 

!  CLR  MON  FLAGS 

0152 

031 C 

0154 

0701 

AND 

R1,#TXMSK  ! 

EXCEPT  TX  BIT  ! 

0156 

0006 

0158 

33E1 

LD 

R14(#MFLAGS) ,R1 

015A 

031C 

015C 

7C05 

SI 

VI 

31 5E 

C82A 

LDB 

R L0,#'*' 

0160 

76CA 

LDA 

R10,SNDCHR(R12) 

!  CALR  SUBSTIT  ! 

0162 

0000* 

0164 

1FA0 

CALL 

0R10 

0166 

34CA 

LDA 

R1C,R12(*GETLNE/ 

!  CALR  SUBSTIT  ! 

0166 

0000* 

016A 

1FA0 

CALL 

OR  10 

i 

GET  CMD  1ST  CHR  ! 

! 

COMMAND 

LOOKUP  ROUTINE  I 

016C 

3401 

LDAR 

Rl.CMDCHR  ! 

BASS  OF  LKU?  T3IE! 

016E 

FEA4 

0170 

BD2B 

LDK 

R2,#C0MDS  ! 

TOTAL  #  CMDS  ! 

0172 

BA14 

CPIR3 

RL0.3R1 ,R2 , SO 

!  FIND  CMD  ! 

0174 

0286 

0176 

EE09 

JR 

NZ.EROR 

!  CMD  NOT  FOUND  l 

0178 

BD1A 

LDK 

R1,#C0MDS  -  1  ! 

DETERMINE  INDEX  ! 

017A 

8321 

SUB 

R1.P.2 

017C 

B311 

SLL 

ri  ,tn 

017E 

0001 

0180 

34  E2 

LDA 

R2,R14(#CMDTBL) 

0182 

0346 

0184 

9121 

ADD 

Rl  ,R2 

0186 

2113 

LD 

P.3.0R1  ! 

GST  CMD  ADR  ! 

0188 

1E38 

JP 

0R3  ! 

GOTO  CMD  HDLR  ! 
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t  *5)C  $$*#!(£  Jit*##  ###*£#* 

*  GL03AL  ERROR  LABEL  * 

*#*#*#  a######**#**##***##*##**  f 


ERCR  : 


013  A 

C83F 

LDB 

RL0,#'?'  ! 

DISP  '?'  FOR  ER  ! 

018C 

34CA 

LDA 

R10,R12(#SNDCHR) 

!  CALR  SUBSTIT  ! 

018E 

0000* 

0190 

1FA0 

CALL 

9R10 

0192 

A1EF 

LD 

F.15.P14 

0194 

010F 

ADD 

R15,#%05F0  ! 

RESET  STACK  POINTER 

0196 

05F0 

0198 

34E1 

LDA 

?1,R14(#0UT3UF) 

019A 

0080 

019C 

33F1 

LD 

R14(#CUTPTR) ,R1 

019E 

0306 

01A0 

E8D0 

JR 

EXEC  ! 

DELETE  CMD  ! 

01 A2 

END  INITL 

END  EXEC 

DMONI TOR 
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2. 


I MTERPUPT  MODULE 


ZS003ASM 
LOC  OBJ 


.02 

CODE  STMT  SOURCE  STATEMENT 

1  INTERRUPT  HDLR  MODULE 
$LISTCN  $TTY 

*  * 

*  INTERRUPT  HANDLER  ROUTINES  # 

v  *r 


CONSTANT 


RXR  :=  2 

TXR  :=  0 

PAR  :=  ? 

PORTAD  :=  ^F?D9 

PORTBD  :=  «FFE1 

PORTAC  :=  %FFDB 

PORTBC  :=  %FFE3 

IDPORT  :=  %FFCB 

ICPORT  :=  %FFC9 

TCMD  :*  %FFD2 
TDTA  :=  %FFD0 


BUS  _LOCK  :=%FFF9 
BUS  UNLOCK  :=%FFFP 


VINTR 
UBIT 
ESCAPE 
BS 

LINDEL 
CR 
LF 

TXOFCH 
TXONCH 
INSIZ 
OUTSIZ 
R3SIZ 
BIT  POSITIONS 


%(2)0001000£U0000000 
12 
*1B 
%09 
%?F 
*0D 
%0A 
%13 
%11 
12S 
128 
256 

IN  MONITOR 


INTBUF  SIZE  ! 
OUTEUF  SIZE  ! 
RING  BUFFER  SIZE 
FLAG  WORD  ! 


TRPMDE  :=  0 

ISTOP  :=  1 

OSTOP  :=  2 

SNDMDE  :=  3 
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LDMDE 

:=  4 

ESC 

:=  5 

TXMSK 

:=  %6 

EXTERNAL 

EXEC 

LABEL 

PBUFNC 

LABEL 

CON  VW 

PROCEDURE 

PRNTBF 

PROCEDURE 

BPKROU 

LABEL 

NEWLNE 

PROCEDURE 

INTERNAL 

^SECTION  DAT 4  DEC 

$ ABS  0 

0000 

INT3UF 

ARRAY 

[129 

3YTX' 

0080 

OUTBUF 

ARRAY 

[128 

BYTEl 

0100 

RNGBUF 

ARRAY 

[256 

BYTE 

0200 

MCZBUF 

ARRAY 

'256 

3YTS: 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

.BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030S 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTR 

WORD 

0316 

3RKAER 

WCRD 

0318 

TMPSP 

WORD 

031 A 

TMPFCW 

WCRD 

031C 

MFLAGS 

WORD 

!  USER  REG ISTSF  STORAGE  ! 

031S 

R0 

WORD 

0320 

Rl~ 

WORD 

0322 

P.2 

WORD 

0324 

R3~ 

WORD 

0326 

R4~ 

WORD 

0328 

R5~ 

WORD 
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032A 

R6 

WORD 

032C 

R? 

WORD 

032E 

RB 

WORD 

0330 

R9_ 

WORD 

0332 

R 10 

WORD 

0334 

Rll 

WORD 

0336 

R12~ 

WORD 

0338 

R13~ 

WORD 

033A 

R 14 

WORD 

033C 

R15“ 

WORD 

033E 

RPC 

WORD 

0340 

RFC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR  STR 

WORD 

GLOBAL 

$SSCTION  INTERRUPT  PROC 
$REL  0 


L' 

0000 

00 

49 

SECMSG  A 

RPAY  [*  BYTE]  :=  'tPCILL  MEP  REF*0D 

1 

0002 

4C 

4C 

r  / 

0004 

20 

4D 

t 

k 

0006 

45 

4D 

:  1 

0008 

20 

52 

000A 

45 

46 

! 

000C 

0D 

;  j 

000D 

09 

42 

BRKMSG 

ARRAY  [*  BYTEl :='%09BREAK  AT  ' 

1 

000F 

52 

45 

0011 

41 

43 

0013 

20 

41 

. 

0015 

54 

20 

■ 

0017 

05 

4E 

NMIMSG 

ARRAY  [*  BYTE] :='^05NPI  %0D ' 

K- 

0019 

4D 

49 

■ 

0013 

20 

0D 

B 

001D 

09 

55 

UNK_INT 

ARRAY  [*  BYTE] :='£09UNS  TR  AP%0D ' 

K 

001F 

4E 

4B 

B 

0021 

20 

54 

K 

0023 

52 

41 

■' 

0025 

50 

0D 

L 


53 


3028  SAVRG  PROCEDURE 

1 


# 

*  SAVRG: 

SAVES  USER  PROG 

RAM  STATUS  - 

a 

AND  REGS  1-14 

CONTENTS.  * 

$#*#*$$#*#*«* **#*«*# t 

ENTRY 

3028 

6FEE 

LD 

TMPS? ( R14 ) , R15 

!  P.TN  ADR  ! 

302A 

0318 

002C 

31F0 

LD 

R0,R15(#4) 

!SA72:  ! 

302  E 

0004 

0030 

6FE0 

LD 

RFC_ ( R14  )  ,  R0 

!  USER  FCW  ! 

0032 

0340 

0034 

31F0 

LD 

?.0,R15(#6) 

0036 

0006 

0038 

6FE0 

LD 

RPC_( R14) , R3 

!  USER  PC  ! 

003A 

033E 

!  SAVE  HI  - 

R14  l 

303C 

76EF 

LDA 

R15, Rl_( R14 ) 

303E 

0320 

0040 

1CF9 

LDM 

OR15.R1  ,#11 

!  STORE  REGS  ! 

0042 

0 1 0  A 

0044 

61 EF 

LD 

R15, TMPSP  ( R14  ) 

1  RESTORE  SP  ! 

0046 

0319 

0048 

6FED 

LD 

S13JB14)  ,R13 

004A 

033e 

004C 

9E08 

RET 

004E 

END  SAVRG 

GLOBAL 

004E 

DMON  ENTRY 

PROCEDURE 

J  $*«*#*####** ## 

# 

*  DMON  ENTRY:  RESTORES  DMONITOR  R12  * 

AND  R14  (CODE  AND  DATA ) * 

REGISTERS 

FOR  INTERRUPT* 

* 

ENTRIES . 

* 

* 

***###*$#*#$$«***#$* i 

ENTRY 

004E 

93F1 

PUSH 

0R15.R1 

0050 

93FS 

PUSH 

0R15.R14 

0052 

7D15 

LDCTL 

HI  ,PSAPCFF 

!  GET  PSA  BASE  ! 

0054 

211E 

LD 

R14.0R1 

!  RESTORE  DATA  BASE 

0056 

6FEC 

LD 

R12_(R14) , R12 

t  SAVE  USER  R12  ! 

0058 

0336 

005A 

311C 

LD 

R12 ,R1 ( #2 ) 

!  RESTORE  CODE  3ASE 

005C 

0002 

005E 

97F1 

POP 

R1  ,OR15 
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0060 

em 

LD 

Rl 4_ ( R14  )  ,Al 

0062 

033  A 

0064 

97  FI 

POP 

R1  ,OR15 

0066 

9103 

RET 

3068 

END  DMON_ENTRY 

GLOBAL 

0068 

MEMINT  PROCEDURE 

|  *###£#**£**#*  fc**'.^*::!!**!*###*#*#!**#*  I**#**! 

1  .u 
.  »r 

*  MEMINT: 

INTERRUPT  HANDLER  TC  SIGNAL 

* 

USER  OF  ILLEGAL  USER  MODE 

USE  OF  LOCAL  MEMORY,  AND 

* 

$ 

TERMINATE  USER  PROGRAM  EXE¬ 

* 

♦ 

CUTION  WITH  RETURN  TO  DMON . 

* 

♦ 

ENTRY 

0068 

D00E 

CALR 

DMON  ENTRY 

006A 

33E? 

LD 

E14(#R1S_) ,R15 

006C 

033C 

006E 

33E0 

LD 

R14( #R0_ ) ,R0 

0070 

03  IE 

0072 

D026 

CALK 

SAVRG  !  SA7E  USER  REGS  ! 

0074 

3402 

LDAR 

R2  .SECMSG 

0076 

FF88 

0078 

93F2 

PUSH 

(?R15 , R2  J  SAVE  MSG  ADR  f 

307A 

E84D 

JR 

ALERT 

007C 

END  MEMINT 

GLOBAL 

007C 

IMPINT  PROCEDURE 

*  IMPINT: 

NON-IMPLEMENTED  INSTRUCTION 

-r* 

V 

« 

interrupt  handler  USED  TC 

* 

* 

TERMINATE  USER  PROGRAM  EXE¬ 

* 

# 

CUTION  AT  A  PRESET  BREAK 

* 

* 

POINT.  ALL  USER  REGISTERS 

AND  PROGRAM  STATUS  IS  SAVED 

* 

* 

* 

ENTRY 

007C 

E018 

CALR 

DMCN  ENTRY 

007F 

33EF 

LD 

R14(#R15_),R15 

0080 

033C 

0082 

33E0 

LD 

R14 ( #R0_ ) ,R0 

0084 

031E 

0086 

D030 

CAL° 

SAVRG  !  SAVE  REGS  1 

0088 

6BE1 

DEC 

RPC_ ( R14 )  ,# 2 

008  A 

033E 

aeec 

6BE0 

DEC 

5EKCNT  (  R1  A)  ,#1 

008E 

030A 

0090 

EE12 

JR 

NZ.SSTP  !  NO,  EXEC  1  INST  ! 

3092 

4DE5 

LD 

BKKCNT(F.14)  ,  #%3001 

0094 

030A 

0096 

0001 

0098 

7C05 

El 

71 

009A 

3402 

LDAR 

R2 , BRXMSG  l  LOAD  ADR  3RK  MSG 

009C 

FF6F 

009E 

DFB0 

CALR 

SNDMSG 

00A0 

31E5 

LD 

R5,R14(#RPC_) 

00A2 

033E 

00A4 

34CA 

LDA 

P10 ,R12 ( #CONVW ) 

30A6 

0000# 

00A8 

1FA0 

CALL 

9R10  !  CONVERT  BYTE  ! 

00  AA 

34CA 

LDA 

P.10,  R12 {  #PRNTBF ' 

00AC 

0000* 

00  A  E 

1FA0 

CALL 

0R10  !  OUTPUT  TO  CONS  ! 

00B0 

34CA 

LDA 

?.10,B12f  #EXEC) 

30P2 

0000* 

00B4 

1EA8 

J? 

0R10  !  RETURN  TO  EXEC  ! 

SSTP : 

00B6 

34CA 

LDA 

R10 , R12 (#BRKROU ) 

00B8 

0000* 

00BA 

1 EA8 

JP 

0R10  !  JUMP  TO  BRK,  ! 

!  ROUTINE  ! 

00BC 

END  IMPINT 

GLOBAL 

00BC 

FAIL_S AFE  PROCEDURE 

* 

# 

*  FAIL 

SAFE:  RESTORES  PROGRAM  TO  * 

* 

CONTROL  OF  DMONITOR  ON  AN  * 

UNKNOWN  INTERRUPT  OR  TRAP  * 

* 

SOURCE.  * 

# 

RETURNS  TO  TEE  BASIC  EXEC.  * 

* 

# 

a**  j 

ENTRY 

00BC 

D038 

CALR 

DMON  ENTRY 

00BE 

33  EF 

LD 

R14(#R15_) ,R15 

00C0 

033C 

00C2 

33E0 

LD 

P.14(#R0_)  , P.0 

00C4 

031E 

00C6 

D050 

CALR 

SAVRG  !  SAVE  USER  REGS  ! 
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r~" - gaMBBiaa - uiasg — e - aatBa - - 


00  C8 

3402 

LDA  r 

A2  ,u*;k_int 

30CA 

FF51 

30CC 

S3F2 

PUSH 

(AR15.R2  !  SAVE  MSG  ADR  ! 

70CE 

F823 

J? 

ALERT 

30  D0 

END  FAIL_SAFE 

00D0 

NMI  PRCCir 

URE 

!  ***###***###4* ***##### ^*****##***£## 

it  it 

*  nmi  int 

:  NON-MASKABLE  INTERRUPT  HDLR* 

* 

IN  RESPONSE  TO  MULTIPLE 

* 

INT  SOURCES.  IF  IN  TRANS- 

* 

*  PARENT  MODE,  IT  WILL  SEND  THE 

X 

'!• 

*  ESCAPE  CHAR  TO  MCZ  AND  RESTORE 

V 

*  THE  stack;  if  executing  usfr 

* 

*  PROGRAM.  IT  WILL  SAVE  PROGRAM 

.1 

'(» 

*  STATUS  AND  ALL  REGISTERS. 

if, 

J. 

n* 

V. 

*  *  #  s*  #  #  ##  ti  ##  ifc  *  it  *  £  #£  #  *c  #  #  *  *  *  ##*####  ❖ : 

ENTRY 

00D0 

93FC 

PUSH 

0F15.R12 

00D2 

93  FE 

PUSH 

9R15.R14 

00D4 

93F1 

PUSH 

0R15.R1 

30D6 

7D15 

LDCTL 

R1 .PSAPOFF 

00D8 

211E 

LD 

R14.QR1  I  LOAD  DATA  AREA 

3ASE  ! 

00DA 

311C 

LD 

F12,R1(#2)  !  LOAD  CODE_AREA 

BASE  ! 

30DC 

0002 

00DE 

97F1 

POP 

R1.0R15  !  RESTORE  R1  ! 

0010 

67E0 

BIT 

MFLAGS(R14),#TRPMDE 

00E2 

031 C 

00E4 

EE0C 

JR 

NZ  .TOUIT  l  YES,  TERMINATE  ! 

!  EXECUTING 

USSR  PROGRAM  ! 

30E6 

97  FE 

POP 

31 4.0R15 

30E8 

97FC 

POP 

R12.9R15 

00EA 

D04F 

CALL 

DMON  ENTRY 

00EC 

33EF 

LD 

R14(#R15_),R15 

00EE 

033C 

00F0 

33E0 

LD 

R14(#R0_) ,R0 

00F2 

031E 

00F4 

D067 

CALR 

SAVRG  !  SAVE  PS  AND 

REGS  ! 

00F6 

3402 

LDAE 

P.2  ,  NMIMSG  !  LOAD  ALERT 

MSG  ! 

00F8 

FF1D 

00FA 

93F2 

PUSH 

9R15 ,R2 

00FC 

E80C 

JR 

ALERT 

l  IN  TRANSPARENT  MODS  ! 
TOUIT : 


mat 
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O0FE 

63E0 

RES 

MFLAGS (R14) ,#TRPMDE 

0100 

031C 

0102 

A1EF 

LD 

R15.R14 

0104 

010F 

ADD 

R15,#%05F0  !  SET  STACK  PTE  ! 

0106 

05F0 

0108 

6FE7 

LD 

R15_( 314) ,R15  !  SET  USER  SP  ! 

010A 

033C 

010C 

C813 

LDB 

RL0,#ESCAPE 

010E 

DFF1 

CALR 

SNDMCZ  !  SEND  ESCAPE  TO  MCZ  ! 

0110 

3402 

LDAR 

P2.NMIMSG  !  LOAD  ALEPT  MSG  ! 

0112 

FF03 

0114 

93F2 

PUSH 

0R15.R2 

fOUTPUT 

NMI  ALERT  MSG  AND  RETURN  TO  EXEC  ! 

ALERT: 

0116 

7C05 

El 

VI 

0116 

76CA 

LDA 

R10i NEWLNE(R12 ) 

011A 

0000* 

011C 

1FA0 

CALL 

OR  10 

01  IE 

97F2 

POP 

R2.0R15 

0120 

DFF1 

CALR 

SNDMSG 

0122 

A1EF 

LD 

R15.R14 

0124 

010F 

ADD 

R15, #%05F0  !  RESET  STACK  POINTER 

0126 

05F0 

0128 

34CA 

LDA 

R10,R12(#EXEC) 

012A 

0000* 

012C 

1EA8 

JP 

OR 10  !  RETURN  TO  D MONITOR  ! 

012E 

END  NMI 

GLOBAL 

012E 

SNDMCZ 

PROCEDURE 

I*****#**#*##*#**#**#**#**#*##*#***###*## 
'*  * 


*  * 

*  SNDMCZ :  OUTPUT  CHAR  TO  SERIAL  PORT  * 

*  ONE  (MCZ  STS).  * 

*  * 

*  REG  USE:  INPUT  RL0  =  CHAR  * 

*  RETURN  Z  IF  CHAR  =  CR  * 

*  * 


******#**#*##**##**##*#***#**##**#****#* j 


ENTRY 


012E 

0130 

3A04 

FFDB 

INB 

RH0, PORTAC 

!  GET  STATUS  ! 

0132 

A600 

BITB 

3H0,#TXR 

!  TRANSMIT  RDT7  ! 

0134 

S6FC 

JR 

Z, SNDMCZ 

!  NOT  TET .  ! 

0136 

0138 

3A86 

FFD9 

OUTB 

PCRTAB.RL0 

!  YES,  SND  CHR  ! 

013A 

013C 

0A08 

0D0D 

CPB 

RL0,#CR 
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“*»■**•« 


► 

y 

0135 

9E09 

AS? 

0140 

END  3NDMCZ 

GLOBAL 

1  0140 

:  J 

SNDMSG  PROCEDURE 

»  #<s  a**#*#  ##*##** 

| 

*  SNDMSG: 

SEND  MSG  SPECIFIED  TO  CONS  * 

w 

(P0RT2).  FUST  BYTE  OF  MSG  * 

* 

IS  THE  DECIMAL  LENGTH  IN  * 

* 

WORDS  .  * 

•t* 

; 

*  PEG  USE 

:  INPUT  R2  =  MSG  A DDF  * 

i 

* 

i 

ENTRY 

'  0140 

3421 

LDA 

R1 ,R 14 ( #OUTBUF  ) 

j  0142 

0080 

!  0144 

BD08 

CLR 

R0 

0146 

2029 

LDB 

RL0.3R2  !  GET  BYTE  COUNT  ! 

0148 

8101 

ADD 

R1.R0 

:  •  014A 

3321 

LD 

B14(#0UTPTR)  ,  HI 

014C 

3306 

j  014E 

A920 

INC 

R2  !  SETUP  FOR  TRANSFER  ! 

0150 

3421 

LDA 

R1 ,  R14(#OUTBUF ' 

|  0152 

0080 

;  0154 

BA21 

LDIAB 

9R1,0R2,S0  !  TRANSFER  TO  0UT3UE  ! 

0156 

0010 

0158 

34CA 

LDA 

R10,R12(#PBUFNC) 

.  015* 

0000* 

r  015C 

12A8 

J? 

(?K10  !  OUTPUT  TO  CONS  ! 

i  0152 

END  SNDMSG 

W 

GLOBAL 

m  0152 

CONI  NT  PROCEDURE 

E 

#3$* #  #  ff  s;e #  s[t #«*####«#  ajc  if 

k 

# 

K 

*  CONINT: 

CONS  (P0RT2)  INPUT  I NT  KDLR  * 

* 

ROUTINE,  WHICH  GETS  REC  CHR  * 

B 

# 

FROM  USART.  REC  CHR  IS  CK  * 

■ 

FOR  TXOFCH  OR  TXONCH,  AND  * 

^Bt 

# 

MFLAGS  ADJUSTED  ACCORDINGLY  * 

* 

tit 

TO  SIGNAL  PROCEDURES.  * 

r  ' 

ENTRY 

015E 

93F0 

PUSH 

0R15.R0 

0160 

93F1 

PUSH 

0R15.R1 

0162 

93F2 

PUSH 

GR15.R2  !  S AYE  WORE  REGS  ! 

0164 

93  FE 

PUSH 

0R15 , R14 

r  1 
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L 

' 

0166 

7D15 

LDCTL 

R1  .PSAPOFF 

!  DATA  AREA  ADR  ! 

0168 

211E 

LD 

R14.9R1 

!  GET  CHAR 

AND  CHECK  FOR 

TXOFCH  OR  TXONCH  ! 

016A 

3A94 

IN3 

RLl.PORTBD 

!  GET  USART  DATA  ! 

016C 

FFE1 

016E 

A297 

RESB 

P.11,  #PAR  ! 

CLR  PARITY  BIT  ! 

0170 

67E0 

BIT 

MFLAGS (R14 ) , #TRPMDE 

0172 

031C 

!  TRANSPARENT  MODE  ! 

0174 

EEia 

JR 

NZ .PUTCHR 

!  YES . ! 

0176 

0A09 

CPB 

RL1,#TXCNCH 

!  NO,  CK  FOR  TXONCH! 

0178 

1111 

017A 

EE03 

JR 

NZ  .AGAIN 

1  NO,  .  .  .  .! 

017C 

63  E2 

RES 

MFLAGS ( R14) , 

#OSTCP  !  RESET  TO,  ! 

017E 

031C 

!  RESUME  OUTPUT  ! 

0180 

E818 

JR 

FINISH 

AGAIN  : 

0182 

0A09 

CPB 

RL1 , #TXOFCH 

!  CK  FOR  TXOFCH  ! 

0184 

1313 

0186 

0ie8 

EE03 

65E2 

JR 

SET 

NZ.AGAIN2 
MFLAGS  (P.14)  , 

!  NO .  ! 

#OSTOP  !  STOP  OUTPUT  ! 

018A 

031C 

Z18C 

E812 

JR 

FINISH 

!  CHECK  FOR  ESCAPE  CHARACTER  I 
AGAIN2: 

018F  0A09  CPB  RL1,#ESCA?E 

0190  1B1B 

0192  EE09  JR  NZ, PUTCHR  !  NO . ! 

0194  67E3  BIT  MFLAGS (R 14 ) , #SNDMPE  !  YES,  CK  SND  MDE 

0196  031C 

0198  EE03  JR  NZ.ESCP  !  YES . ! 

019 A  67E4  BIT  MFLAGS ( R14 ), #LDMDE  !  NO,  CK  LD  MDE  ! 

019C  031C 

019E  E603  JR  Z , PUTCHR  l  NO  ! 

ES  CP  t 

01A0  65E5  SET  MFLAGS (R14) ,#ESC  !  SET  ESCAPE  BIT  ! 

01A2  031C 

01A4  E806  JR  FINISH 

!  PRIMARY  SAVE  CHARACTER  ROUTINE  ! 

PUTCHR  ? 

01A6  31E0  LD  R0,R14(*NXTPTR) 

01A8  030C 

01AA  DFF8  CALR  GETBUF  !  GST  RNGBUF  A DDR  I 

01AC  33E0  LD  R14 ( #NXTPTR ) ,R0 

01AE  030C 

01B0  2E29  LD3  0R2.RL1  f  PUT  CHR  IN  RNGBUF  I 
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0132 

97FE 

POP 

R14.0R15 

'  ,  0134 

97F2 

POP 

R2  .0R15 

0136 

97  FI 

POP 

31 ,0? 15 

r 

01  Be 

97  F0 

POP 

R0.0R15  !  RESTORE  WORK  PEGS 

013A 

7300 

IRET 

01BC 

END  CONINT 

GLOBAL 

* 

013C 

GETBUF 

PROCEDURE 

i 

»  a####*'#*},':###*:#?######*####:::####*###*#*:## 

> 

* 

WU 

•**' 

FINISH: 


« 

$ 

* 


GET3UF :  DETERMINES  POSITION  IN  * 

RINGBUFFER  TO  PUT  OR  GET  * 

NEXT  CHAR.  * 


REG  USE: 


INPUT  R<? 
RETURN  R0 
R2 


CURRENT  INDEX 
NEW  INDEX 
ADR  OF  RNGBUF 


ENTRY 


0130 

93FD 

PUSH 

0R15.R13 

01EE 

A102 

LD 

R2,R0 

01C0 

A900 

INC 

R0  ,#1 

!  INC  PTR  ! 

01C2 

0B00 

CP 

R0,#RBSIZ 

!  WRAP  AROUND  ! 

01C4 

0100 

01C6 

EE01 

JR 

NZ,GB 

01C8 

8D08 

CLR 

R0 

!  RESET  INDEX  ! 

01 C  A 

34  ED 

GB-.LDA 

R13, R14( WFNGBUF )  !  NEW  ADR 

01CC 

0100 

01CF 

81D2 

ADD 

R2,R13 

01D0 

97  FD 

POP 

P13.0R15 

01D2 

9E08 

RET 

01D4 

END  GETBUF 
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GLOBAL 

01D4  MCZHND  PROCEDURE 

J  *#*#«*#*# 


* 

* 

* 

MCZHND:  MCZ  (SERIAL 

PORT1 )  INPUT 

* 

* 

INTERRUPT  HANDLER  ROUTINE 

# 

WHICH  GETS 

RECEIVED  CHAR 

* 

* 

FROM  USART, 

AND  STORES  IN 

Sr 

* 

MCZBUF. 

>u 

*r 

# 

I*#*#***#*****#*######*#***#**###******##  | 


ENTRY 


01D4 

93F0 

PUSH 

3R15.R0 

01D6 

93T1 

PUSH 

0R15.R1 

01D8 

93F2 

PUSH 

0P.15  ,R2 

!  SAVE  WORK  REGS  ! 

01DA 

93FE 

PUSH 

OP 15 , R14 

01DC 

7D15 

LDCTL 

R1 .PSAPOFF 

01DE 

211S 

LD 

R14.0R1  ! 

DATA_AREA  ADR  ! 

!  GET  CHAR 

FPOM  MCZ  ! 

01 E0 

3A94 

INB 

RLl.PORTAD 

!  GET  CHR  ! 

01E2 

FFD9 

01E4 

A297 

RESB 

RL1 ,#PAR 

!  RESET  PARITY  ! 

01E6 

31E0 

LD 

P0,R14(#MCZ?UT) 

01E8 

0310 

01EA 

DFF8 

CALR 

GMCZAD 

!  GET  MCZBUF  ADR  ! 

01  EC 

33  E0 

LD 

R14(#MCZPUT) 

,R0 

01EE 

0310 

01F0 

2E29 

LDB 

0R2.RL1  ! 

SAVE  CHAR  ! 

{RESTORE  WORK  REGS  ! 

01F2 

97FE 

POP 

R14.0R15 

01F4 

97F2 

POP 

R2.0R15 

01F6 

97F1 

POP 

R1  ,0R15 

01F8 

97  F0 

POP 

R0.OR15 

01FA 

7B00 

I  RET 

01FC 

END  MCZHND 
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01  PC 


SLOB  AL 

GMCZAD  PROCEDURE 

*  # 


*  GMCZAD:  GET  NEXT  ADR  OF  MCZ  BUFFER 

*  TO  STORE  OR  GET  CHARACTER. 

* 


* 


*  PEG  USE:  INPUT  R0  =  PTn  IN  MCZBUF  * 

*  RETURN  R0  =  NEW  PTR  IN  BUF  * 

*  R2  =  3GN  OF  MCZBUF  * 


ENTRY 

01FC 

93FD 

PUSH 

0R15.R13 

01FE 

A102 

LD 

R2.R0 

0200 

A900 

INC 

R0,*1 

0202 

0B00 

CP 

R0,#RBSIZ 

!  WRAP  AROUND?  ! 

0204 

0100 

0206 

EE01 

JR 

NZ.GBZ 

0208 

8D08 

CLR 

R0 

f  RESET  OFFSET  ! 

G3Z : 

020  s 

34  ED 

LDA. 

R13,R14(#MCZBUF)  !  GET  ADR 

020C 

0200 

020E 

eiD2 

ADD 

R2.R13 

0210 

97  FD 

POP 

R13.8R15 

0212 

9E08 

RET 

0214 

END  GMCZAD 

END  INTERRUPT  HDLR 
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it  it 


3.  LOAD  MODULE 


Z8000ASM 
LOC  OBJ 


.02 

CODE  STMT  SOURCE  STATEMENT 

1  LOAD  CMD  MODULE 
$L ISTON  $TTY 

Jtt#*###****##*#*^#*#*#**##*#  «#$ *#**#** a** 

*  V 

*  LOAD  CMD:  COMMAND  TO  DOWNLOAD  Z8K  * 

*  OBJ  CODE  FILE  FROM  RIO/  * 

*  MCZ  SYSTEM  IN  TEXTRONIX  FORMATTED  * 

*  PACKET  PASSING  PROTOCOL.  USER  CAN 

*  SPECIFY  LOAD  ADDRESS  INSTEAD  OF 

*  USING  MCZ  LOAD  ADDRESS. 

* 

*  CAUTION: 

*  CODE  FILES  MUST  BE  RELOCATABLE 

*  TO  EXECUTE  PROPERLY. 

* 

*  SYNTAX:  LOAD  <FILENAME>  [<ADR>] 

* 

#*tt**’t'***##**«*******’0‘***#*:C‘«*X‘*>C<**#W*’t‘  I 


CONSTANT 

RXR 

2 

TXR 

= 

0 

PAR 

=s 

7 

PORTAD 

= 

%FFD9 

PORTBD 

= 

%FFE1 

PORTAC 

= 

%FFDB 

PORTBC 

= 

%FFE3 

IDPORT 

= 

%FFCB 

ICPORT 

= 

%FFC9 

TCMD  :=  %FFD2 
TDTA  :=  %FFD0 

BUS  LOCK  :=%FFF9 

BUS "UNLOCK  :*%FFF8 

YINTR  :=  %(2 ) 0001000000000000 

VIBIT  :=  12 

ESCAPE  :=  %1B 

BS  :=  %08 

LINDEL  :=  %7F 

CR  :=  %0D 
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«  #  «  »  « 


LF  :  = 

*0  A 

TXOFCH  := 

%  13 

TXONCH  := 

^11 

IMSIZ  :  = 

129  !  INT3UF  SIZE 

OUTSIZ  := 

128  !  OUTBUF  SIZE 

R3SIZ  := 

256  !  RING  BUFFER 

BIT  POSITIONS 

IN  “ONITCR  FLAG  WORD  ! 

TRPMDE  := 

0 

I  STOP 

1 

OSTOP  := 

2 

SNDMDE  := 

3 

LDMDE 

4 

ESC  :  = 

5 

TXMSK  := 

%6 

COMES  :  = 

11 

INTERN  SL 

$SECTION  DATA_DEC 
$A3S  0 


0000 

INTBUF 

ARRAY 

[128  BYTE] 

0090 

OUTBUF 

ARRAY 

[129  BYTE] 

0100 

RNGBUF 

ARRAY 

[256  BYTE! 

0200 

MCZBUF 

ARRAY 

[256  BYTE] 

0300 

BUFADR 

WORD 

0302 

BUFSrZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0309 

UNIMP 

WORD 

030  A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

3RXSTR 

WORD 

0316 

3FKADR 

WORD 

0319 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

031C 

MFLAGS 

WO  PD 

!  USER  REGISTER  ; 

STORAGE  ! 

031E 

R0 

WORD 

0320 

P.1" 

WORD 

0322 

R2~ 

WORD 

0324 

R3 

WORD 

0326 

R4~ 

WORD 

0328 

P5' 

WORD 

032A 

R6 

WORD 

032C 

R7 

WORD 

032E 

PS 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

R 1 1 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033A 

R14 

WOPD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

F.FC_ 

WOFD 

0342 

RETRY 

WORD 

0344 

ADR  STP. 

WORD 

0346 

CMDTEL 

ARRAY [12 

WORD] 

EXTERNAL 

PRNTBF 

PROCEDURE 

EXTERNAL 

GETNXT 

PROCEDURE 

EXTERNAL 

EROP 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERNAL 

GETADR 

POCEDURE 

EXTERNAL 

GMCZ AD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNAL 

CONVERT 

PROCEDURE 

EXTERNAL 

PBUFNC 

LABEL 

EXTERNAL 

SNDMSG 

PROCEDURE 

EXTERNAL 

CONVW 

PROCEDURE 

^SECTION  LOAD  PROC 
$REL  0 


SLOB AL 

0000  FNAME  PROCEDURE 

f  >)t  ###**#  jjt  #1(1#  jjtjfc  3}c  J* I*:###  *#$$##  ### 

*  * 

*  FNAME:  RESETS  TWO  PTRS  TO  MCZBUF  * 

*  AND  CHECKS  FOR  FILENAME.  * 

*  # 
I*#*#******#**#****#***#**#*###*##*####*# ; 

ENTRY 


e000  4DE8 

CLR 

MC  ZGET ( R 14 ) 

0002  0312 
0004  4DE3 

CLR 

MCZPUT (R14 ) 

!  RESET  BUFFER  ! 
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0006 

0310 

0008 

34CA 

LDA 

R10 , R12 ( # JETNXT ' 

300A 

0000* 

000C 

1FA0 

CALL 

0R10  !  SKIP  CMD  ARG  ! 

000? 

0A08 

CPB 

RL0,#  'A  ' 

0010 

4141 

0012 

E711 

JR 

C.DUN 

0014 

0  A08 

CPB 

?L0,#'Z'+1 

0016 

5B5B 

0018 

EE0E 

JR 

NC  .DUN  !  1ST  CHR  IN  (A..Z)  ! 

001 A 

76CA 

LDA 

P10 , GETNXT{ R12 ) 

001C 

0000* 

001E 

1FA0 

CALL 

0R10  !  SKIP  TO  NEXT  ARG  ! 

0020 

E607 

J  P. 

2 , NO  ADR  !  NO  NEXT  APG  ! 

0022 

76CA 

LDA 

R10,GSTADR (R12 ) 

0024 

0000* 

0026 

1FA0 

CALL 

OR 10  !  GET  USER  SPECIFIED  ! 

!  ADDRESS  ! 

0028 

A13B 

LD 

R11.R3  !  SAFE  USER  ADR  ! 

002A 

6FE3 

LD 

ADP_STR(P14) ,F3 

002C 

0344 

002E 

9E08 

RET 

NO  ADR: 

R1 1 , #%FF?E  !  SIGNAL  TO  USE  ^CZ  ! 

0030 

210B 

'LD 

0032 

FFFE 

1  ADDPESS  l 

0034 

9E08 

RET 

DUN: 

0036 

8D98 

CLR 

R9 

0038 

34CA 

LDA 

R10 , 312 ( #ERCR ) 

e03A 

0000* 

003C 

1EA8 

JP 

OR  10  !  ERROR.  F.TN  TO  EXEC  ! 

003E 

END  FNAME 
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GLOBAL 

003E  CMDPAS  PROCEDURE 

*  * 

*  CMDPAS :  LOAD  CMD  PASSING  MECHANISM  * 

*  SENDS  'B;  '  PLUS  CONS  CMD  * 

*  LINE  TO  MCZ  AND  CKS  RESPONSES  FO?  * 

*  GOOD  Z80  PROGRAM  LOAD.  * 

*  * 

*  REG  USE:  RETURN  NZ  I?  Z80  LOADED  * 

*  Z  IF  NOT  * 

*  # 
*************** I****#*#**#***:**#*#**#*#**  | 


ENTRY 


003E 

67E5 

BIT 

MFLAGS , R14) ,#ESC  !  CK  FOR  ESCAPE  ! 

0040 

031C 

0042 

E602 

JR 

Z ,  GCMD 

oe44 

8D41 

SETFLG 

Z 

0046 

9E08 

RET 

GCMD : 

0048 

C242 

LDB 

RH2,*'B' 

004A 

CA3B 

LDB 

RL2,#'; ' 

004C 

6FE2 

LD 

0UTBUFCR14) , R2 

!  LOAD  IN  IT  '3;  ' 

004E 

0080 

! 

FOR  BRIEF  MODE  ! 

0050 

76E2 

lda 

R2.0UTEUFU14) 

0052 

0080 

0054 

A921 

INC 

R2,#2 

0056 

76E1 

LDA 

R1,INTBUF(R14) 

0058 

0000 

005A 

2100 

LD 

F.0,#%40  f 

LD  CMD  IN  CUTBUF  ! 

005C 

0040 

005E 

BB11 

LDIR 

GR2,C*R1,R0 

0060 

0020 

0062 

76E1 

LDA 

R1  ,OUTBUF (R14 } 

0064 

0080 

0066 

0101 

ADD 

R1  ,#%80 

0068 

0080 

006  A 

6FE1 

LD 

OUTPTR(R14) ,R1 

006C 

0306 

006E 

DFB6 

CALR 

OUTSTM  I 

OUTPUT  BUFFER  ! 

0070 

DFE7 

CALR 

SKIPLN  ! 

SKI?  MCZ  ECHO  ! 

0072 

DFD4 

CALR 

MCZCOM  ! 

WAIT  RESPONSE  ! 

0074 

0A09 

CPB 

RL1,#'B' 

0076 

4242 

0078 

EE02 

JR 

NZ.LDSTAT 

007A 

DFEC 

CALR 

SKIPLN  ! 

SKIP  MCZ  ECHO  ! 
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007C 

TFD9 

CAL  it 

*CZCCM  ! 

WAIT  RESPONSE  ! 

!  VERIFY 
LDSTAT: 

LOAD  STATUS  ! 

007E 

0A09 

CPB 

RL1,#'9' 

!  TEST  LEGAL  ! 

?0S0 

3939 

0082 

E60E 

JR 

Z,.  RECACK 

!  ACKNOWLEDGEMENTS 

0084 

0*09 

CPB 

RL1 ,  #  '0 ' 

0086 

3030 

00e8 

E60E 

JR 

Z.RFCACK 

r  RSC  GOOD  A CK  ! 

008* 

0*09 

CPB 

RL1,#'7' 

308C 

3737 

008E 

E608 

JR 

Z, RECACK 

!  NO  ACKNOWLEDGEMENTS  RECEIVED  ! 

ERMSG: 

0090 

DFD9 

CALR 

RECMSG 

!  GET  MCZ  VSG  ! 

0092 

34  C  A 

LD< 

R10, R12 (#SNDCH 

A  ) 

0094 

0000* 

0096 

1FA0 

CALL 

OR  10 

!  SEND  TO  CONS  ! 

0098 

0  A  08 

CPB 

RL0,«LF 

009A 

0A0  A 

009C 

9E06 

RET 

Z 

!  DONE  ! 

009E 

E8F8 

JR 

ERMSG 

!  ACKNOWLEDGE  RECEIVED  f 

RECACK: 

00  A  0 

8D43 

EESFLG  Z 

!  RETURN  NZ  ! 

30A2 

9E08 

RET 

00A4 

END  CMDPAS 

GLOBAL 

SKPB 

LABEL 

00A4 

SKIPLN 

PROCEDURE 

$  -f 


* 

SKIPLN:  SKIP  RECEIVED  LINE  FROM 

*r 

# 

MCZJ  RETURN  FIRST  CHAR  OF 

* 

* 

NEXT  LINE. 

* 

REG  USE:  RETURN  RL1  =  1ST  CER 

* 

* 

* 

AND  NZ  IF  ESC 

«»» 

'r  v 

ft*##*#*#****#** #«###*#«#*«*#*##*##*##### ; 

ENTRY 

00A4 

DFE3 

CALR  RECMSG  !  SKIP  OVER 

LINE  I 

00*6 

0A08 

CPB  ?L0,*CR  !  THRU  CR.LF 

00A8 

0D0D 

00  AA 

EEFC 

JR  NZ, SKIPLN 
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SKPS: 


00  AC 

2101 

LD 

Hl,#%3000 

; 

DELAY  FACTOR  ! 

00AE 

3000 

!  MAIN  LOOP 

FOR  RECEIVING 

CHAR  ! 

LOOP1 : 

00B0 

61E0 

LD 

R0  .MCZGET  fR14) 

00B2 

0312 

00B4 

4EE0 

CP 

R0  , MCZPUT ( R14 ) 

!  TEST  FOR  EEC  CH 

0036 

0310 

00B8 

FE03 

JR 

NZ  .RECHR 

! 

YES, .  ! 

00EA 

A310 

DEC 

HI  ,#1 

I 

NO,  WAIT  AWHILE  ! 

003C 

EEF9 

JR 

NZ .LOOP1 

eeBE 

9F06 

FET 

Z 

; 

FORCED  EOL  ! 

RECHR : 

00C0 

PFFB 

CALR 

MCZCOM 

00C2 

0  A  09 

CPB 

RL1,#'  ' 

; 

CK  1ST-PRNT  CHR  ! 

00C4 

2020 

00C6 

9E0D 

RET 

PL 

00C8 

DFF5 

CALR 

RECMSG 

00C  A 

S8F0 

JR 

SKPB 

00CC 

END  SKIPLN 

00CC 

MCZCOM  PROCEDURE 

I***#**#**###*#*  a**#*#######*:#**##**#***** 
$  # 


*  MCZCOM:  LOOPS  WAITING  FOR  RECEIVE  * 

*  CHAR  FROM  MCZ  BY  SEEING  IF  * 

*  MCZBUF  GETS  CHAR.  DOES  * 

*  ADVANCE  POINTER.  * 

£  # 

*  REG  USE:  RETURN  RL1  =  CHR  * 

*  * 
a****#*###*###*#*##########***#!*#*#*###**-.  J 


00CC 

61E0 

ENTRY 

LD 

F0,MCZGET(R14) 

» 

CHECK  MCZBUF 

00CE 

00D0 

0312 

43E0 

CP 

R0 ,MC  ZPUT ( R14 ) 

! 

POINTERS  ! 

00D2 

00D4 

0310 

E6FB 

JR 

Z, MCZCOM  ! 

WAIT 

00D6 

34CA 

LDA 

R10,R12(#GMCZAD) 

00D8 

00DA 

0000* 

1FA0 

CALL 

0P10  ! 

GET 

CHAR  FPOM  BUF 

00DC 

00DE 

00E0 

2029 

9E08 

LDB 

RET 

END  MCZCOM 

RL1.0R2 
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00  E? 


P.ECMSG  PROCEDURE 


# 

RECMSG: 

LOOPS  WAITING  FOR  RSC  CHR 

# 

# 

FFOM  MCZ.  GETS  CHAP  AND 

=s 

TO  NOT  ADVANCE  3UF  PTR. 

# 

n* 

F.EG  USE 

:  RETURNS  RL0  =  CH? 

r 

V 

ENTRY 


00F0 

61F0 

LD 

R0 ,MC ZGET (R14  ) 

00F2 

0312 

00E4 

4BE3 

CP 

?.0,MCZPOTfRll)  !  CE  FOR  EEC  ! 

00E6 

0310 

00E8 

E6FB 

JR 

Z.  RECMSG  !  WAIT .  ! 

00EA 

34C  A 

LDA 

R10 , R12( »GMCZAD ' 

00EC 

0000* 

00EF 

1FA0 

CALL 

OR  10  !  GST  1ST  CHAR  ! 

00F0 

6FE0 

LD 

MCZGETfRl 4) ,R0  !  'ESTORZ  FTP  ! 

00F2 

0312 

00F4 

2028 

LDB 

RL0.OR2  !  RTN  CHAR  ! 

30F6 

9E08 

RET 

00F8 

END  RECMSG 

GLOB  AL 

OUTSTM 

LABEL 

00F8 

OOTLNE 

PROCEDURE 

I############*######**######*#*####*##### 

*  OUTLNE 

:  OUTPUTS  A  LINE  OF  CRAR  FROM  * 

* 

OUTBUF  TO  MCZ  WITH  CR  AT  * 

* 

END.  * 

❖ 

* 

*  OUTSTM 
$ 

:  OUTPUTS  A  LINE  OF  CHAR  V/CR  * 

ENTRY 

00  F8 

61F2 

LD 

R2 .OUTPTR (R14 ) 

30FA 

0306 

00FC 

?C25 

LDB 

?R2,#CR  ! STORE  CR  IN  3U7  ! 

00FE 

0D0D 

0100 

69E3 

INC 

OUTPTR (R14 )  ,#1  !  INC  PTR  ! 

C102 

0305 

!  NO  CE  ENTPY  POINT  ! 
OUTSTM: 

? 104  76E1  LD«  P 1 , OUTBUF( R14 i 

0106  0380 


f  MAIN  LOOP  ! 
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OVRAGN : 


''108 

2019 

LDB 

3L0,GE1 

01  0A 

A910 

INC 

R1 

010C 

34CA 

LDA 

R10  ,R12 l #S  NDMCZ 

010E 

0000* 

0110 

1FA0 

CALL 

<??10  ! 

SND  CHR  TO  MCZ  ! 

0112 

1603 

JH 

Z, FINIS 

^114 

4BE1 

CP 

El .OUTPTR ( R14 ) 

0116 

0306 

0118 

E7F7 

JR 

C, OVRAGN  I 

CK  IF  BUF  EMPTY  ! 

!  FINISHED. 

RESET  OUTPTP ( R14 )  AND  BLANK  0UT3UF 

FINIS: 

01 1A 

76F2 

LDA 

R2  .COTBUF (R14 ) 

!  RESET  POINTER  ! 

P11C 

P0Q0 

01  IE 

6FE2 

LD 

OUTPTR (F14),f 2 

0120 

0306 

?122 

2100 

LD 

R0 ,#OUTS I Z/2 

0124 

0040 

0126 

AE00 

DEC 

R0,#1  ! 

SET  COUNT  ! 

0128 

4DE5 

LD 

OUTBUFf R14) 

'  !  LOAD  COUNT  ! 

012A 

0080 

012C 

2020 

012E 

76F2 

LD4 

R2  .0UT3UF ( R14 ) 

0130 

0080 

0132 

A121 

LD 

R1  ,R2 

0134 

A  911 

INC 

Rl,*2 

0136 

BE21 

LDIE 

0P1.9R2.R0  f 

CLF.  BUFFER  ! 

0138 

0010 

013  s 

9E08 

RET 

013C 

END  OUTLNE 
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ABOPTM  LABEL 
GODPAK  LABEL 

213C  3ADPAK  PEC  CEBU RE 

*  * 

*  3ADPAK:  SENDS  RESEND  SIGNAL  {'?')  * 

*  TO  NC Z  FOR  BAD  CKSUM  OR  REC  * 


*  NON-ASCII  CHR.  * 

#  * 

*  ARCRTM:  SENDS  ABORT  SIGNAL  ('9')  * 

*  WHEN  USER  SELECTED.  * 

sit  * 

*  GODPAK:  SENDS  ACS  SIGNAL  ('2')  FOR  * 

*  RECEIPT  OF  GOOD  PACKET.  * 

$  * 


#####$  j*$###3lt$$3it$:*jpj(cj{t>jrigt]jc#8:tcx:j(tjjt#*#«jectt«*#jtjtt  t 


ENTRY 


2L3C 

CS37 

LDB 

RL0,#'7'  ! 

LD  RESEND  SIG  ! 

013E 

F803 

JR 

OUTALL 

AEORTM : 

2140 

C939 

LDB 

RL0,#'9'  ! 

LD  ABORT  SIG  f 

*142 

F801 

J? 

OUTALL 

GODPAK: 

0144 

C  930 

LDB 

RL0,*'0'  I 

LD  REC  OK  SIG  ! 

OUTALL: 

0146 

6EE8 

LDB 

0UTBUF(R14) ,RL0 

0140 

0090 

014  s 

76ED 

IDA 

R13,0UTBUF(R14 ) 

C14C 

30e0 

214E 

A9D0 

INC 

R13f  #1 

?  152 

6FFD 

LD 

OUTPTR { R14 ) .313 

0152 

0306 

2154 

D02F 

CALR 

OUTLNE  ! 

SEND  MCZ  SYSTEM 

0156 

P05A 

CALR 

SKIPLN 

SKI?  ECHO  ! 

0158 

9E08 

RET 

015A 

END  BADPAK 

015A 


GLOBAL 

GETACK  PROCEDURE 

I  Sc**##**#** St#*#*#*######*##* 


V 

*  GETACK: 

RECEIVE 

AND  INTERPRET  ACK  * 

FROM  MCZ 

.  GOOD  ACK  *  'Z'  * 

BAD  ACK  =  * 

$ 

ABORT  -  '9'  * 

* 

*  REG  USE 

:  RETURN 

Z,NC  IF  GOOD  ACK  * 

* 

NZ.NC  IF  BAD  ACK  * 

V 

NZ,C  IF  ABORT  * 

* 

* 

#4^  ****#**##«*$#*«#* ft#*#***##*##**###### | 

ENTRY 

01 5  A 

D048 

CALR 

MC  ZCOM 

!  GET  CHR  I 

015C 

0A09 

CPB 

RL1,#'0' 

!  CK  FOR  ACK  ! 

r'lbE 

3030 

0160 

EE04 

JR 

NZ.NACK 

!  NO .  ! 

0162 

D060 

CALR 

SKIPLN 

!  YES,  REC  ACK  ! 

0164 

3U41 

SETELG 

Z 

0166 

6D83 

RESFLG 

C 

0160 

9E08 

RET 

!  CK  FOR  '7 

'  AND  '9' 

NON -ACKNOWLEDGEMENTS  ! 

NACK: 

016A 

0A09 

CPB 

RL1,#'7' 

!  CK  FOR  RESEND  ! 

016C 

3737 

016S 

EE04 

J? 

NZ.ABET 

f  NO.  . . .  1 

0170 

E067 

CALR 

SKIPLN 

0172 

eD43 

RESFLG 

Z 

3174 

8D83 

RESFLG 

C 

0176 

9E09 

RET 

!  CHECK  FOP 

ABORT  ! 

ABRT: 

0178 

0A09 

CPB 

RL1,#'9' 

017A 

3939 

017C 

E602 

JR 

Z. ENDIT 

!  YES,  ABORT...  ! 

017E 

D050 

CALR 

RECMSG 

!  GST  ANOTHER  CHR  ! 

0180 

F8EC 

JR 

GETACK 

!  TRY  AGAIN. .. .  ! 

ENDIT: 

0182 

D070 

CALR 

SKIPLN 

0184 

9D43 

RESFLG 

Z 

0186 

8D81 

SETFLG 

C 

0188 

9E08 

RET 

018A 

END  GETACK 
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013A 


LINRCT  PROCEDURE 

J  *** *»,•:#* fcijc*:***: *##**«*<  sjssStsjt###*!#  # 

*  LINPCT:  RECEIVES  LINE  OF  CHAa  FROM  * 

*  MCZ  AFTER  RECEIPT  OF  * 

*  AND  STORES  IN  I NTBUF ,  ADDING* 

*  CR  AT  END  AND  FILTERING  OUT  * 

*  CONTROL  CHARACTERS.  '<20H)  * 

*  (TPUNC«TFS  AFTER  80  CHAR)  * 

*  *r 

*****  ******  **  ***************************  t 

ENTRY 


!  WAIT  FOR  ASCII  /  ! 

eiSA 

D056 

CALR 

RECMSG 

oiec 

0A08 

CPB 

?L0,#'/' 

018E 

2F2F 

0190 

EEFC 

JR 

NZ .LINRCT 

!  WAIT  ! 

!  BEGIN 

STORING  CHARACTERS  ! 

0192 

76E4 

LDA 

R4,INTBUF(R14) 

0194 

0000 

0196 

CB50 

LD3 

RL3,#80 

•SET  LINE  LENGTH  ! 

!  STORE 

CHAR  IN  INTBIJF  ! 

LOPSTR : 

0198 

D05D 

CAL? 

RECMSG 

!  GET  CHAR  ! 

019A 

2E48 

LDB 

0R4.RL0 

!  STORE  ! 

019C 

0A08 

CPB 

RL0,#CP. 

!  CK  FOR  END  ! 

019E 

0D0D 

01A0 

EE02 

JP 

NZ .SKPSOM 

!  GOT  CHAR..  ! 

01A2 

D07C 

CALR 

SKPB 

01  A4 

9E08 

RET 

! CONTROL 

CHAR  FILTERED  AND  DEC  LINE  COUNTER 

SKPSOM: 

01 A  6 

0  A08 

CPB 

RL  0 ,  # '  ' 

01A8 

2020 

01 AA 

F7F6 

JR 

C, LOPSTR 

0 1 A  C 

“940 

INC 

R4,#l 

!  GOOD  CHAR  ! 

?1  AE 

FB0C 

DBJNZ 

HL3, LOPSTR 

!  DEC  COUNT  ! 

ITRUNCATS,  TOO  MANY  CHAR 

! 

LOPOVR: 

01B0 

D069 

CALR 

RECMSG 

01 B2 

0A08 

CPB 

RL0,#CR 

!  LOOK  FOR  CR  ! 

01B4 

0D0D 

01E6 

EEFC 

JP 

NZ, LOPOVR 

01 38 

76ED 

LDA 

R13, INTBUF(R14 ) 

0 1 B  A 

0000 

013C 

010D 

ADD 

R13, #80 

01BE 

0050 

01C0 

2ID8 

LDB 

0P.13  ,RL0 
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01C2 

9E08 

PET 

01C4 

END  LINRCT 

71C4 

UNPACE  PROCEDURE 

1 ##****$*#**$* $$***##*#######*#**###$#*## 

* 

* 

*  UNPACK: 

UNPACKS  RECEIVED  PACKETS  * 

FROM  MCZ  IN 

INTBUF  AND  * 

LOADS  IN  SPECIFIED  MEMORY  * 

* 

'REA.  ASCII 

CHAF.  ARE  CON-  * 

$ 

* 

VERTED  TO  HEX  VALUES.  * 

JU 

•i* 

*  REG  USE 

:  INPUT  RH3 

=  #BYTE  DATA  * 

$*#*#*#**#$##*#***#*«#*#*#$***«*********  j 

ENTRY 

01C4 

A03C 

LDB 

RL4.RH3 

!  SAVE  COUNT  ! 

01C6 

DFDF 

CALR 

CONVAD 

f  CONV  START  ADR 

!  CHECK  FOR 

USER  ENTERED 

ADDR  FOR  LOAD  ! 

7  ICS 

0B0B 

CP 

F.ll ,  #%FFFE 

01 CA 

FFFE 

01CC 

F601 

JR 

Z .USE  MCZADR 

01CS 

A1B1 

LD 

P.1.R11 

!  USER  SPECIFIED 

USE  MCZADR: 

01D0 

76F2 

EDA 

P.2 ,  INTBUF(  R14  ) 

01D2 

0000 

01D4 

A927 

INC 

R2,#8 

CANDS: 

01D6 

DFFe 

CALR 

TRNHEX  ! 

CONVERT  2-ASCII  CH 

011)8 

2E18 

LDB 

3R1.RL0  ! 

STORE  IN  MEM  ! 

01DA 

»910 

INC 

R1  ,#1 

01DC 

FC04 

DBJNZ 

RL4, CANDS  ! 

CONV  AND  STORE  ALL 

!  UPDATE  USER  SPECIFIED 

ADDRESS  ! 

01DE 

0B0B 

C? 

El 1 , #%FFFE 

01E0 

FFFE 

01E2 

E601 

JR 

Z , NO  UPDATE 

!  USE  MCZ  ADR  ! 

01 E4 

AllB 

LD 

R1 1 , R1 

!  UPDATE  USER  ADR  ! 

NO  UPDATE: 

01E6 

9E08 

"RET 

01E8 

END  UNPACK 
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TRNHEX  PROCEDURE 

*  * *###**$*#*#»  J***!^*#*#######*###**#*:#*#* 

*  * 
TRNHEX :  CONVERTS  TWO  ASCII  CHAR  FRM  * 
INTBUF  TO  TWO  4-BIT  HEX  # 

AND  ADD  TO  CKSUM. 


* 

* 

# 

* 

if 

# 

* 

* 

if 

if 

# 


REG  USE:  INPUT  R2  =  PTR  TO  1ST  CHR 
RL3=  CKSUM  ACCUM 
RETURN  R2  =  UPDATE  PTR 

RL3=  UPDATED  ACCUM 
RL0=  HEX  VALUE 
AMD  C  IF  NON-ASCII 
NC  IF  ALL  GOOD 


* 

* 

if 

if 

if 

'/• 

if 

S 

yu 

* 

* 


ENTRY 


31E8 

DFF6 

CALR 

ATOHEX 

f  CONVERT 

1ST  C HP  ! 

01 EA 

9E07 

RET 

C 

01EC 

908B 

ADDB 

0L3.RL0 

!  ADD  TC  1 

CKSUM  ! 

01  EE 

E309 

SLA 

R0 ,#12 

!  MOVE  TO 

H  NIEELE  ! 

01F0 

000C 

"1F2 

DFFB 

CALR 

ATOHEX 

!  CONVERT 

2ND  CHR  ! 

01F4 

9E07 

RET 

C 

01F6 

808B 

ADD  3 

RL3.RL0 

01E8 

8408 

ORB 

RL0.P.H0 

!  COMBINE 

NIBBLES  ! 

01FA 

6D83 

R5SFLG 

C 

01 FC 

5  E08 

RET 

01FE 

END  TRNHEX 

01 FE 

ATOHEX  PROCEDURE 

|  ###*#**:*»**:  *=*#*#*«  ^t#**^* 


# 

* 

*  ATOHEX: 

CONVERTS  ONE  ASCII  CHAR  TO 

if 

if 

4-3IT  HEX  NIBBLE. 

if 

if 

if 

*  REG  USE 

:  INPUT  P.2  =  PTF  TO  CHR 

if 

if 

RETURN  R2  =  PTR  +  1 

if 

* 

RL0=  HEX  NIBBLE 

if 

* 

# 

if  if#  #  #  sjc  #  it  it  *  *  if  tf  #  if  $  *  $  *  #  *  41  #  #  #  *  $  <:  $  #  #  *  #  $  41 *  #  #  #  # 

ENTRY 

31FE 

2028 

LDB 

RL0.0R2 

0200 

A920 

INC 

R2,#l  !  INC  PTR  ! 

0202 

34C  A 

LDA 

F.10,R12(#CONVERT) 

0204 

0000* 

0206 

1FA0 

CALL 

0R10 

0208 

9E08 

RET 

020A 

END  ATOHEX 
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020A 


020A  76E2 
020C  0000 
020E  D014 
0210  A081 
0212  D016 
0214  A089 
0216  9508 
0213 


CONVAD  PROCEDURE 

'  *  * 


*  CONVAD:  CONVERTS  STARTING  ADDRESS  * 

*  CF  PACKET  DATA  TO  REX  # .  * 

*  * 

*  REG  USE:  RETURN  R1  =  ADDRESS (HEX)  * 

*  * 
*$*$#$*#***#*##:<::(>*##***#*#****?**«#*****  I 

ENTRY 

LDA  R2, INT3UF (R14 ) 


CALR  trnhex 

LDB  RH1.RI0  !  STORE  1ST  BYTE  ! 

C»LR  TRNHEX 

LDB  RL1.RL0  !  STORE  2ND  BYTE  ! 

RET 

END  CONVAD 


0218 


CHKPAK  PROCEDURE 

*  * 


*  CHKPAK:  CK  RECEIVED  MCZ  PAC  CKSUM  * 

*  AGAINST  ACCUMULATED  HEX  * 

*  value  CKSUM  AFTER  ASCII-TO-  * 

*  HEX  CONVERSION.  * 

*  * 


*= 

* 

* 

* 


REG  USE:  RETURN  RH3  *  BYTE  COUNT  * 

AND  C  IF  BAD  OR  * 
NON-ASCII.  * 


^fr#***^**##***####**###*#*****##******#  | 


ENTRY 

0218  76E2  LDA 
021A  0000 
021C  C303 
021E  DFF9 
0220  9E07 
0222  8C34 
0224  9E06 
0226  93F3 
0228  DFFE 
02 2 A  97F3 
022C  9E08 
022E 


R2,INTBUF(R14) 


RH3,#3 

CHKSUM  ! 
C  ! 
RH3 

Z  ! 
(?R15,R3  ! 
CHKSUM  ! 


R3.0R15 


CK  1ST  CKSUM  ! 

BAD  CK  ! 

NO  DATA  ! 

SAVE  BYTE  COUNT  ! 
CK  2ND  CKSUM  ! 


LDB 

CALR 

RET 

TESTB 

RET 

PUSH 

CALR 

POP 

RET 

END  CHKPAK 
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0225  CHKSUM  PROCEDURE 


#  * 

*  CHKSUM:  CONVERTS  ALL  REC  ASCII  CHP.  * 

*  IN  ?AC  TO  REX  ANT  ACCUM  NEW  * 

*  CKSUM.  COMPARE  CKSUMS  AND  * 

*  REPORT  DIFFERENCES.  •* 

*  * 

*  RFC  USE:  INPUT  R2  =  PTR  TO  PAC  * 

*  RH3=  #  CHR  PAIRS  * 

*  RETURN  RH3=  BYTE  COUNT  * 

*  RL3=  NEW  CKSUM  * 

*  RH3=  REC  CKSUM  * 

*  AND  C  IF  BAD  OR  * 

*  NON-ASCII  FEC  * 

^  ~r 


#  *****##>*  JitJfcliSJjCtfaJStXSSjCS*#:*#**####*##**#*##*  j 

ENTRY 


322E 

9  CBS 

CLRB 

RL3 

!  7ES ET  CKSUM  ! 

0230 

D025 

AB:CALR 

TRNHEX 

!  CONVERT  PAIRS  ! 

0232 

9E37 

RET 

C 

3234 

F303 

DBJNZ 

RH3.AB 

I  CONTINUE .  ! 

0236 

A083 

LDB 

RH3.RL0 

0238 

93F3 

PUSH 

0F15.R3 

!  SAVE  BYTE  C.NT  ! 

023A 

D02A 

CALR 

TRNHEX 

!  CONVERT  NEXT  TWO  ! 

023C 

97^3 

POP 

R3.3R15 

023E 

9E07 

F  ET 

C 

0243 

8AB8 

CPB 

RL0.RL3 

!  COMPARE  CKSUMS  ! 

0242 

9EC6 

RET 

Z 

!  300D  CK. . .  ! 

0244 

8D61 

SETFLG 

C 

!  BAD  CKSUM  ! 

3246 

9E08 

RET 

0248 

END  CHKSUM 
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0248 


GLOBAL 

LOADFL  PROCEDURE 

J  # s*#*##** #  «##:(:#  a** $##«# 
#  * 

*  LOADFL:  RECEIVES  PACKET  FROM  MCZ  IN  * 

*  FOLLOWING  FORMAT:  * 

*  * 


*  <ADRXCNTXCKSlXDTA>.  .  .<DTAXCKS2>  * 

»JC 

*  ADR  =  START  ASR  IN  Z8000  MEM  * 

*  CNT  =  #  DATA  WORDS  * 

*  CKS1  =  CKSUM  OF  <ADR>  +  <CNT>  * 

*  <DTA>. . . <DTA>  =  30  DATA  WORDS  * 

*  CKS2=  CKSUM  OF  DATA  HEX  VALUES  * 

*  * 


*  PROCEDURE  VERIFIES  CKSUMS  BEFORE  * 

*  STORING  DATA  IN  Z8000  MEM.  PACKETS  * 

*  ARE  ACK  FOR  WITH:  '0'  =  GOOD  * 

*  '?'  =  RESEND  * 

*  '9'  =  ABORT  * 

*  IF  REC  '//'  FROM  MCZ,  ECHOS  WHAT  * 

*  REC  NEXT  TO  CONSOLE  AND  A3CRT .  * 

*  $ 


ENTRY 


<5,24e 

D125 

CALK 

FNAME  !  CK  FILENAME 

; 

024A 

65E4 

SET 

MFLAGS (R14 ) , #LDMDE  ! SIGNAL 

LOAD 

024C 

031C 

! PROGRESS! 

024E 

D109 

CALF. 

CMDPAS  !  SND  CMD  TO  MCZ  ! 

0250 

9E06 

RET 

Z  I  Z80  PROG  NO 

LOAD 

RECLOP: 

0252 

D065 

CALR 

LINRCT  !  GET  PACKET 

! 

0254 

76E2 

LDA 

R2  .INTBUF ■ R14 ) 

*256 

0000 

0258 

2028 

LDB 

RL0,QR2 

025A 

0A08 

CPE 

RL0,#'/'  !  CK  FOR  '//' 

! 

025C 

2F2F 

025E 

EE10 

JR 

NZ.CONTIN  ! NO ,  CONTINUE 

.  .  .1 

0260 

76E1 

LDA 

R1  .OUTBUF (R14 )  ! YES . ! 

0262 

0080 

0264 

2103 

LD 

F3,#%20 

0266 

0020 

0268 

3B21 

LDIR 

0R1.0R2.R3  !ERROR  MSG  SETUP  ! 

026A 

0310 

026C 

76E1 

LDA 

R1  .OUTBUF 'R14 ) 

026F 

0080 

0270 

0101 

ADD 

R1  ,#%20 

0272 

0020 

80 


P'2'74 

6?T1 

LD 

OUTPTR ( D 14 ) , R1 

!SET  OUTPTR  ! 

0276 

0306 

0278 

34CA 

LDA 

R10, R12 ( #P3UFNC 

} 

027A 

0000* 

027C 

1FA0 

CALL 

OP  10 

027E 

9E09 

RET 

CONTIN : 

0280 

67  F5 

BIT 

MFLAGS (R1 4) ,  #ESC  !  CK  FOR  ABORT 

0282 

031C 

0294 

EE34 

JR 

NZ ,  ABT  ! 

YES  ,  A30F.T  .  .  .  ! 

0286 

D038 

CALR 

CHKPAK  ! 

CK  CESUMS  ! 

0288 

EF02 

JR 

NC.GDLD  ! 

GOOD  LOAD  ! 

028  A 

D0  *8 

C  »LF. 

BADPAK  ! 

SEND  NON-ACK  ! 

028C 

Z8  82 

JR 

RECLOP  ! 

TRY  AGAIN  ! 

!  CHECK  FOR 
GDLD  : 

LAST  PACKET  AND 

PRINT  <ENT  ADR>  ! 

028E 

8C39 

CLRB 

RL3 

0290 

8138 

ADD 

R9.R3  !  AC CUM 

NUMBER  BYTES  ! 

!  OF  TRANSFER  ! 

0292 

8C34 

T^S  T3 

RH3  ! 

CK  CCUNT=0  ! 

0294 

E22e 

JR 

NZ  .STOP  f 

OK,  BEGIN  STR  ! 

0296 

D0AA 

CALR 

GOrPAK  ! 

SEND  GOOD  ACK  ! 

0299 

54E0 

LDL 

RR0,  INTBCJFf  R14  ' 

029A. 

0000 

029C 

76ED 

LDA 

R13,CUTBUF(R14 ) 

029E 

008? 

02A0 

010D 

ADD 

HI 3, #%0C 

02A2 

000C 

!  CHECK  FOR 

USER  SPECIFIED 

A  DDR  ! 

02A4 

0E09 

CP 

R9,*%AAAA 

02A6 

A  AAA 

02*8 

E61D 

JR 

Z , END  LOAD  ! 

NO  ECHO  TC  CCNS  ! 

02AA 

0BOB 

CP 

R11,#%FFFS  ! 

CK  FOR  LOAD  ADR  f 

02AC 

EPEE 

02  AT 

E608 

JR 

Z , S  A  ME  ADR  ! 

USE  MCZ  ADR  ! 

02E0 

6FED 

LD 

OUTPTR (P14) , HI 3 

!  SET  OCTBUT  JDF. 

02B2 

0306 

02B4 

61  ED 

LD 

R5.ADR  S7?.(R14> 

!  GET  USER  ADR  ! 

02B6 

0344 

?2B8 

76CA 

LDA 

R10 , CONVW (R12 ) 

02BA 

0000* 

02BC 

1FA0 

CALL 

0710  !  CONVERT  TO  ASCII  AND 

!  AND  STORE  IN  CUTBUF 

02BE 

H 

cs. 

CO 

JR 

FI  N_3UE 

SAME  ADR: 


31 


02C3 

1DD3 

LDL 

UR13 , RR0 

FIN  BUF  *. 

72C2 

3402 

LDAP 

?2. ENTADR  !LOAD  ENTRY  LABEL! 

02C4 

0040 

02C6 

76E1 

LEA 

R1.0UTBUF-R14) 

02C8 

0080 

02CA 

2100 

LD 

P.0  ,#6 

02CC 

0006 

02CE 

BB21 

LDI-. 

(?R1 , 9R2 , S0 

92D0 

0019 

02D2 

76ED 

lea 

R13,0UTBUF{S14) 

02D4 

0090 

02D6 

010D 

ADD 

R13,#%10 

02E8 

0010 

02DA 

6FED 

LD 

OUTPTR (R14) ,R13 

92DC 

0306 

02DE 

34  CA 

lea 

HI  0 ,R12 { #PRNTBF ) 

O2E0 

0000* 

02E2 

1FA0 

CALL 

0R10  J  PP I  NT  MESSAGE  ! 

END  LOAD 

• 

• 

02E4 

9E08 

BET 

S  TOR: 

02E6 

D06F 

CALR 

CONVAD 

02  E8 

D0C3 

CALB 

GO DP AS  !  SEND  ACS  ! 

02EA 

D094 

CALH 

UNPACK  f  UNPACK  AND  STORE 

02EC 

E8B2 

JR 

RECLOP  !  CONTINUE....! 

*BT: 

32EE 

3402 

LDAR 

R2.EMSG 

02F0 

000A 

02  P2 

34CA 

LDA 

R10, R12 ( tfSNDMSG ) 

02F4 

0000* 

02F6 

1FA0 

CALL 

OR  10  !  SEND  MESSAGE  ! 

02FS 

D0DD 

CALR 

ABORT M  !  SEND  ABORT  ! 

02FA 

9E08 

RET 

02FC 

END  LOADFL 

EMSG  : 

02FC 

07 

BVAL 

7 

02FE 

2T41 

WV AL 

'/A' 

0300 

424F 

lrfV»L 

'BO ' 

0302 

5254 

WV  AL 

'RT' 

0304 

0D 

BVAL 

%0D 

ENTADR: 

0306 

454E 

W7AL 

'EN' 

0308 

5452 

W7AL 

'TR' 

030A 

5920 

VVAL 

'Y  ' 
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r 


030C 

5C4F 

W7AL 

'PO' 

030E 

494E 

V  7 » L 

'IN  ' 

O310 

5420 

'll  VAL 

'<n  ' 

A 

END  LO/D 

CMD 
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4.  REGISTER  MODULE 


Z8000ASM  2.02 

LOC  03J  CODE  STMT  SOURCE  STATEMENT 

1  REGISTER  CMD  MODULE 
$LISTON  $TTY 

9  9 

*  REGISTER  CMD:  DISPLAYS  CONTENTS  OF  * 

*  ALL  USER  (')  REGS  OR  * 

*  EACH  REGISTER  INDIVIDUALLY  IN  THE  * 

*  SUBSTITUTION  MODE.  A  '0 '  ENDS  THE  * 

*  session;  a  CP  ADVANCES  in  order  * 

*  THROUGH  REG  CONTENTS  WITHOUT  ANY  * 

*  changes;  and  a  valid  hex  entry  * 

*  WILL  ALTER  THE  REG I STEF  CONTENTS.  * 

*  * 

*  SYNTAX:  REGISTER  [<REG  NAME>]  * 

*  * 


EXTERNAL 

EROR 

LABEL 

EXTERNAL 

G ETC HR 

PROCEDURE 

EXTERNAL 

STOBUF 

PROCEDURE 

EXTERNAL 

DISP 

PROCEDURE 

EXTERNAL 

PRNT3F 

PROCEDURE 

EXTERNAL 

CON  VB 

LABEL 

EXTERNAL 

GETNXT 

PROCEDURE 

EXTERN *L 

DISPNC 

LABEL 

EXTERNAL 

CONVW 

PROCEDURE 

^SECTION 

REGISTER  PROC 

$REL  0 

0000  30  20 

0002  31  20 

0004  32  20 

00e6  33  20 

0008  34  20 

000A  35  20 

000C  36  20 

000S  37  20 


LKTBL  ARRAY  [*  3YTE]:  =  '0  12345 
6789  1011 12 13141 5PCFCRLRH' 
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*014  71  3 0 

0016  31  31 

0018  31  32 

301 A  31  33 

301C  31  34 

001E  31  35 

0320  50  43 

0022  46  43 

0024  52  40 

0026  52  48 


0026 


GLOBAL 

PPPEG2  L  s  B  EL 

PP.REG1  PROCEDURE 

J  **#  #*#**#####  3c* 


# 

* 

* 

* 

* 

ijt 

* 


PR REG 1 :  OUTPUT  CONTENTS  OF  USER 
REGISTERS  0-13  TO  CONS. 

PF.REG2:  OUTPUTS  CONTENTS  OF  USE? 
REGS  R14,R15,RPC .RFC . 


* 

* 

$ 

* 

* 

* 


ENTRY 


0028 

BD6E 

LDE 

P6,#14 

!  SET  *  REGS  ! 

002A 

34F1 

LDA 

R1,R14(#R0_) 

!  LOAD  BASE 

ADR 

302C 

031F 

002E 

E8e3 

JR 

PLOOP 

l  PRREG2 

ENTRY  POINT  ! 

PRRSG2: 

0030 

BD64 

LDK 

?6,#4  !  SET 

2ND  LINE  REG  #  ! 

0032 

34F1 

LDA 

R1,R14?#?.14_ 

}  !  LOAD  BASE  ADF. 

i 

3034 

033A 

!  MAIN  PRINT  LOO?  ! 

PLOOP: 

3036 

2115 

LD 

R5.9R1 

003e 

34C  A 

LDA 

R10,E12(*CON7W)  !  CONVERT  REX 

TO 

003A 

0000* 

003C 

1FA0 

CALL 

0R10 

!  ASCII  ! 

303E 

AB60 

DEC 

F.6 ,  #1 

t  DONE?  F 

0040 

E604 

JR 

Z  ,  PRNT 

!  OUTPUT  IF  YFS  ! 

0042 

69E0 

INC 

CUTPTE(R14),#1 

t'044 

0306 

0046 

A911 

INC 

R1  ,#2 

!  GET  NEXT  REG  ADR 

\ 

0048 

F876 

JR 

PLOOP 

!  LOOP  ! 

PENT: 


£04  A 

34CA 

IDA 

P.10,  M2(»PRNT3F' 

004  c 

0000* 

004E 

11  AS 

J? 

0F.10 

0050 

END  PRREG1 

GLOB  4 L 

RGHDR2 

LABEL 

0050 

RGHDRl 

PROCEDURE 

1  $####*###*#*#$##*#*«***##$:«#***#*#$#*#**( 

# 

* 

*  RGHDRl: 

OUTPUT  HEADER  FOR  REGISTERS  * 

# 

F0  -  R13 .  * 

* 

*  RGHDR2: 

OUTPUT  HEADER  FOR  REGISTERS  * 

>!< 

R14.  R15 ,  RPC,  RFC.  * 

* 

#  **#*#*,*###sMt  «***#*«  **#**#***$«  £*##** 

ENTRY 

0050 

BD0E 

LDK 

R0,#14  !  SET  PRINT  COUNT  ! 

0052 

3405 

LDAR 

R5.LKT3L 

0054 

FT*  A 

0056 

E805 

JR 

HLOOP 

!  SECOND  HEADER  ENTRY  POINT  ! 

RGHDF2: 

0056 

ED04 

LDK 

R0,#4  !  SET  PRINT  COUNT  ! 

005A 

3405 

LDAR 

S5,LKT3L 

*05C 

FFA2 

005E 

0105 

ADD 

P-5  ,#28 

0060 

e01C 

!  MAIN  PRINT  LOOP  ! 

HLOOP: 

0062 

31F2 

LD 

R2,R14(#0UTPTR)  !  LOAD  OUTBUF  INDEX 

0064 

0306 

0066 

0C25 

LDB 

0R2 ,  #  'R ' 

0068 

5252 

006A 

69E0 

INC 

OUTPTR ( R1 4) 

006C 

0306 

006E 

2151 

LD 

R1,0R5  !  GET  CHR  FROM  TABLE  ! 

0070 

DFFA 

C  »LR 

STOBUF  !  STORE  IN  OUTBUF  ! 

0072 

AB00 

DEC 

R0,#1  !  DONE?  ! 

0074 

E6EA 

JR 

Z.PRNT  !  YES,  OUTPUT  BUFFER  ! 

0076 

69E1 

INC 

0UTPTP.(R14)  ,#2  !  NO,  CONTINUE! 

0078 

0306 

007A 

A951 

INC 

R5,#2  !  ADVANCE  TABLE  INDEX! 

007C 

E8F2 

JR 

HLOOP 

007E 


END  R0HDR1 
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GLOBAL 

•?07E  STOBUF  Pf.OCFDUE  E 

|  S  ###  a*#*#***#* fr.*#*#####^**##*#*#**##**# 


*  * 

#  STOBUF:  STORES  CONTENTS  OF  REGISTER  * 

*  IN mO  OUTBUF  AND  INCREMENTS  * 

*  OUTPTR.  * 

#  * 

*  PEG  USE:  INPUT  PI  =  CONTENTS  * 


*** **##**  St##*:*:.*  ###*##*#**  <5# *#$###  t 


ENTRY 


?07E 

93F4 

PUSH 

0R15.R4  !  SAW  WORK  REG  ! 

^080 

61 E4 

LD 

t>4  .OOTPTP  (  P14  ) 

0082 

0306 

0064 

2E41 

LDB 

0R4.RH1  !  STR  1ST  BYTE  ! 

0086 

A  940 

INC 

5  4 

0088 

2E49 

LDB 

0R4.PL1  !  ST?  2ND  BYTE  ! 

306A 

69E1 

INC 

OUTPTR  (R14 )  ,  f*2 

0080 

0306 

006E 

97E4 

POP 

*'4,0?15  !  RESTORE  WPK  =EG 

0090 

9E09 

RET 

0092 

END  STOBUF 

GLOBAL 

0092 

REGISTER 

PROCEDURE 

# 

* 

*  REGISTER:  DISPLAY  AND  ALLOW  CHANGE  * 

* 

OF  USER  REGISTERS.  * 

*  REG 

USE:  INPUT  ALL  * 

* 

RETURN  SAME  * 

* 

I**:###*:#  Jjt##  #  3)c#l>c  £#*#>•<)(!£#  a**#**#  f 

ENTRY 

0092 

340B 

LDAR 

Rll.LKTBL 

0094 

FF6A 

0096 

34C  A 

LDA 

R10, R12 ( #GETNXT ) 

0098 

0000# 

009A 

1FA0 

CALL 

OR 10  !  SKIP  REST  CMD  ! 

009C 

EF01 

JR 

NZ  ,AM 

009E 

E85B 

JP 

??.  NT  A  L 

00A0 

0A08 

AM  :CPB 

RL0,#'R' 

00*2 

5252 

00A4 

EE22 

JR 

NZ  .GLOBE?. 

!  CHECK 

DISPLAY  MODE  -  R,  HR,  RH,  RL  ! 

37 


313,R12(#GETCHR) 


00A6  34CA 
00  AS  0000* 
00AA  17A0 
P  0  A  C  E61E 
30AS  A08E 
0030  0A08 
0032  5252 
00E4  F608 
0036  8C69 
0038  0 A  08 
20 E A  4C4C 
003C  E604 
003E  C602 
30C0  0A08 
00C2  4848 
00C4  EE04 


LEA 

CALL  OR  12 

JR  Z, GLOBER 

LEE  RL6.RL0 

CPB  RL0,#'R' 

JF.  Z. PEG  ID 

CLR3  RH6 

CPB  RL0,#'L' 

JR  Z, REGIE 

LDB  RH6,#2 

CPB  RL0,#'H' 

JR  NZ.SAVID 


!  GET  NXT  CRR  ! 

!  ERROR  ! 

!  GET  FIRST  CEF.  ! 

!  CK  FOR  'RR'  ! 

!  YES,  GET  REG  ID  ! 

!  IS  LOW  BYTE?  ! 

!  YES,  GET  REG  ID  ! 

!  IS  HIGH  BYTE?  1 


!  GET  REGISTER  ID  NUMBER  ! 
REGIE: 


00C6 

34C  A 

LDA 

R10,R12(#GETCHR) 

20C8 

0000* 

00  C  A 

1FA0 

CALL 

OR  10 

!  GET  1ST  CHAR  ! 

00CC 

E60E 

JR 

Z, GLOBER 

SAVID: 

00CE 

A081 

LDB 

RH1.RL0 

P0D0 

34C  A 

LDA 

P10.R12(# 

GETCHR ) 

20D2 

0000* 

00D4 

17A0 

CALL 

OR  10 

I  GET  2ND  CHR  ! 

00D6 

EE02 

JR 

NZ.SAVID2 

00D8 

C920 

LDB 

RL1 , # '  ' 

!  PAD  WITH 

SPACE 

1 

30  DA 

E801 

JR 

FNENAM 

SAVIP2 : 

30DC 

A089 

LDE 

RL1.RL0 

f  SA7E  EOTH 

DIGITS  ! 

!  FIND  REG 
FNDN »M: 

ID  IN  REG 

LOOKUP  TABLE  I 

00DE 

2108 

LD 

R8,#18 

!  TABLE  LENGTH  ! 

00E0 

0012 

00E2 

’  1B9 

LD 

R9.R11 

I  BASS  OF  LKUP 

TBL  ! 

00E4 

BB94 

CPIR 

R1  ,039,38 

, EQ  I  LOOK  FOR 

MATCH 

I 

00E6 

0816 

00E8 

E603 

JR 

Z ,  A  J 

GLOBER : 

00EA 

34CA 

LDA 

R10.R12 (#EROR) 

00EC 

0000* 

0^-E 

1EA8 

JP 

OP.  10 

00F0 

AB91 

AJ :DEC 

R9,#2 

!  ADJUST  CORRECT 

ADR! 

00F2 

2102 

LD 

R2  ,#17 

!  DETERMINE 

REG  1 

MEM  ! 

88 

00E6 

8392 

SDR 

R2.R3 

INDEX  * 

00F8 

A 128 

LD 

R9.R2 

00  FA 

B3S1 

SLL 

r.s  ,#i 

00FC 

-0001 

!  DETFRMINF 

DISPLAY  MODE 

OUTLINE  ! 

00FE 

0A0E 

CPE 

?.L6,#'H' 

I 

RL6=M0DF  ! 

3100 

4849 

0102 

E65E 

JP 

Z,  3YT 

I 

BYT  MODE  ! 

0104 

0A03 

CPE 

RL6,#  'L  ' 

0106 

4C4C 

0109 

E65B 

JP. 

Z ,  BYT 

1 

ALSO  BYTE  *CDS  ! 

01 0A. 

0A0E 

CPE 

RL6,#'?.' 

010C 

5252 

010E 

F628 

JR 

Z.LWORD 

! 

LONG  WORD  MODE  ! 

!  SINGLE  WORD  DISPLAY  MODE 

ROUTINE  ! 

SWORD: 

(’IIP 

2101 

LD 

?.1,#'P.  ' 

0112 

5220 

0114 

D04C 

CALR 

STOEU? 

! 

STORE  IN  0UT3TJF  ! 

0116 

63E0 

DFC 

CUTPTR ( R14 ) , 

#1 

011P 

0306 

01 1A 

2191 

LD 

R1  ,  0R9 

! 

STORE  REG  ID  ! 

011C 

D050 

CALR 

STOBUF 

01  IF 

69F0 

INC 

0UT?TRfR14) , 

#1 

!  ADD  SPACE  ! 

0120 

0306 

0122 

34SD 

LDA 

R13 , R14 ( #R0 

_) 

0124 

031  S 

0126 

7135 

LD 

R5,R13(R8) 

0128 

0800 

012A 

34C  A 

LDA 

R10 , R12 ( #DISP) 

012C 

0000* 

012F 

IF*  0 

CALL 

9R10 

; 

OUTPUT  TO  CONS  ! 

0130 

9E07 

RET 

C 

1 

■>EC  'O'  ! 

0132 

E60A 

JR 

z.same 

! 

RFC  CR,  STAYS  SAME 

0134 

2192 

LD 

R2  ,3R9 

0136 

34E  A 

LDA 

HI  0 . R1 1 ^  #34 ) 

0139 

0022 

013* 

83*2 

C? 

R2.R10 

013C 

EF01 

JF 

NZ , JMPOVR 

!  NOT  PC  RFG  ! 

013E 

A330 

RES 

R3  .#0 

!  CHG  TO  EVEN  ADR  ! 

JMP07F : 

0140 

76ED 

LDA 

R13,R0_(R14) 

1  CHG  PEG  CONTENTS 

0142 

031E 

0144 

73  D3 

LD 

R13(R8),R3 

0146 

0800 

SAME: 

INC 


0148  A 981 


S8.  #2 


!  ADJ  REG  INDEX  ! 


31  4A 

A991 

INC 

R9,#2  !  AD J 

TA3LE  ADR  ! 

014C 

34B3 

LDA 

R3,R11(#35)  !  GET 

END  CE  TBLE 

3142 

0023 

0150 

8339 

CP 

R9,R3  !  END 

OF  TABLE?  ! 

0152 

E7DE 

JR 

C. SWORD  !  NO, 

CONTINUE. .  ! 

0154 

9E08 

RET 

!  YES 

,  DONE  ! 

!  ROUTINE 

TO  PRINT  ALL  HEADERS  . 

AND  CONTENTS 

PRNTAL: 

0156 

D084 

CALR 

RGHDR1 

0156 

D099 

CAL? 

PP.REG1 

<?  15» 

D082 

CAL? 

P.GHDE2 

015C 

D097 

CALR 

PRREG2 

01 5E 

8E08 

RET 

!  LONG  WORD  DISPLAY  MODE  ROUTINE  ! 
LWORD: 


0160 

A13D 

LD 

R13.R11  ! 

ai5  ADDR  ! 

0162 

ei0D 

ADD 

H13.W30 

0164 

001 E 

0166 

83D9 

CP 

R9.R13 

0iee 

EFC0 

JR 

NC  .GL03ER 

!  RR0  -  RR14  OE  ! 

016A 

0A09 

CPP 

PL1,#'  ' 

!  CK  IE  DIGIT  REG 

016C 

2020 

016E 

E602 

JR 

Z.SVNCK 

0170 

A710 

BIT 

?1,#0  ! 

CK  IE  2ND  CHR  EVEN  ! 

0172 

E801 

JR 

OVER 

EVNCK : 

0174 

A716 

BIT 

R1  ,#8 

OVER: 

0176 

EEB9 

JR 

NZ.GLOBER 

!  LONG  WORD 

DISPLAY  MODS  ROUTINE  ! 

LWLOOP : 

0178 

2101 

LD 

R1,#'?.R' 

017A 

5252 

017C 

D080 

CALR 

STOBUE 

1  STORE  IN  OUTBUF  ! 

017E 

2191 

LD 

R1.0R9 

0180 

1FA0 

CALL 

C«R10  I  ADD  REG  ID  ! 

0182 

69E0 

INC 

OUTPTR (R14) 

,#1  !  ADD  SPACE  ! 

0184 

0306 

0iee 

34E4 

LD« 

R4,R14(#R0_ 

)  1  LOAD  1ST  WORD 

0188 

031E 

01 8  A 

7145 

LD 

R5,R4(R8) 

018C 

0800 

018E 

34CA 

LDA 

R10 ,R12 ( #CONVW ) 

0190 

0000# 

0192 

1FA0 

CALL 

OF  10 

!  CONVERT  1ST  ! 

0194 

1941 

INC 

R4,#2 

0196 

7145 

LD 

R5,R4(R8)  ! 

LOAD  2ND  WORD  ! 

90 


0198 

0800 

019A 

34C  A 

L  DA 

?13,?12<#DISP) 

yi9C 

0000* 

019F 

IF  A  0 

C»LL 

OR  10 

01  A3 

9E07 

RST 

C 

01A2 

E60'7 

JR 

Z. AROUND  !  RFC  CR ,  NO  CHG 

01A4 

34  E4 

LD‘ 

R4,F14(#R0_) 

01A6 

031S 

01A8 

7342 

LB 

R4  fR8)  ,R2 

01 A  A 

0800 

01  AC 

A941 

INC 

?4  ,#2 

01  AS 

7343 

LD 

R4  'R8)  ,R3 

01B0 

0800 

AROUND: 

0132 

A  983 

INC 

R8  .#4 

01B4 

A  993 

INC 

?9,#4  !  INCREMENT  TO  NEXT 

31E6 

34B3 

LDA 

R3 ,R11 { #16 ) 

0138 

0010 

01BA 

8B39 

C? 

R9.R3  !  FINISHED?  ! 

01BC 

E7DD 

J  n 

C, LWLOOP 

313E 

9E08 

RST 

!  DONE  ! 

!  BYTE  : 

DISPLAY  ROUTINE  ! 

BYT: 

01C0 

A134 

LD 

R4.R11 

01C2 

<947 

INC 

P.4 .  #8 

01C4 

8B49 

CP 

R9.R4  !  CK  IF  REG  >P7 

01C6 

EF91 

JR 

NC  .GLOBSR 

01C8 

3361 

S?L 

P6,#3 

01 C  A 

FFF8 

01  CC 

SE01 

JR 

NZ  .THRU 

01CE 

A  980 

INC 

R8 

THRU: 

01D0 

A 134 

LD 

R4.R11 

01D2 

0104 

ADD 

R4,#18 

01D4 

0012 

01D6 

7141 

LD 

R1  ,R4!R6) 

01D8 

0600 

01DA 

D3AF 

CAL? 

STOBUF  !  STORE  IN  OUTBUF 

31DC 

2191 

LD 

R1  ,ORS 

01DE 

1FA0 

CALL 

OR  10 

01E0 

31E4 

LD 

R4 , R14 ( #R0_) 

01S2 

031E 

C1E4 

704D 

LDB 

RL5, R4 ( R8  ) 

01S6 

0800 

01 S8 

34  C  A 

LDA 

R1 0 ,R 12 ( #CONVB ) 

riEA 

0000* 

01EC 

1FA0 

CALL 

OR10  !  CONVERT  WORD  ! 
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01EE 

69E0 

INC 

OUTPTR (R1 A) , 

#1 

GIF? 

0306 

01F2 

34C  A 

LDA 

P.10,  P12UDISPNC) 

01F4 

0000* 

01F6 

1FA0 

CALL 

0R10  !  OUTPUT,  CfC  FOR  INPUT  ! 

01F8 

9E07 

RET 

C 

!  FINISHED,  PEC  'O' 

01  FA 

E604 

JR 

Z.ABA  ! 

REC  CR,  STAYS  SAME  ! 

01FC 

34E4 

LDA 

R4,?.14(*R0_ 

) 

01FS 

031E 

0200 

7243 

LD3 

R4(R8) ,RL3 

0202 

0800 

ABA: 

0204 

A980 

INC 

R8  ,#1 

0206 

AB61 

DEC 

R6  ,#2 

!  INCREMENT  INDEXES 

0208 

E6E3 

JR 

Z , THRU 

!  OUTPUT  LOW  BYTE  ! 

020A 

2106 

LD 

P6,#2 

020C 

0002 

020E 

A991 

INC 

R9,#2  f 

GET  NEXT  BYTE  GRP  ! 

0210 

A1B3 

LD 

R3.R11 

0212 

A  937 

INC 

R3,#8 

0214 

eB39 

CP 

R9.R3 

!  CK  FOR  END  ! 

0216 

E7DC 

JR 

C , THRU 

!  NO.  CONTINUE...! 

0218 

9E08 

RET 

!  YES.  ! 

021A  END  REGISTER 

END  REGISTER  CMD 


DISPLAY  MODULE 


ts, 


Z8003ASM 
IOC  OBJ 


2.32 

CODE 


STMT  SOURCE  STATEMENT 


DISPLAY  CMD: 


1  DISPLAY_CMD  MODULE 
^LISTON  $TTY 

# 

DISPLAYS  CONTENTS  CF  * 
SPECIFIED  MEMORY  LOC  * 
WITH  ABILITY  TO  CHANCE  CONTENTS  * 
OF  MEM. AS  PER  <CNT>.  CONTENTS  * 
APE  DISPLAYED  16-PYTES /L INE  WITH* 
SPACE  BETWEEN  BYTES /WORDS/LVORDS* 
AS  SELECTED  [E/W/L] .  WITHOUT  * 
COUNT .CONTENT  IS  DISPLAYED  IN 
UNIT  E/W/L.  ENTERED  DATA  WILL 

CHG  contents;  CR  WILL  not;  and 
'O'  WILL  EXIT  CMD. 


* 

t- 

* 

* 

a* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

£ 

* 

* 

* 

* 

* 

* 

* 

* 


FILL:  STORES  GIVEN  DATA  WORD) 
IN  ALL  INCLUSIVE  MEMORY  LOC 
DEFINED  BY  <BGN  ADR>  AND 
<END  ADR> . 


DEFINED  BY  SIZE 
START  ADR  <SCR> 
ADR  <DST) . 


AS 

<SIZ>  FROM 
TO  DEST. 


SYNTAX: 


DISPLAY  <ADR>[<CNT>1  [3/W/Ll 
MOVE  <SCR>  <DST>  <SIZ) 

FILL  <BGN  ADRXEND  ADR><WD> 


# 

if 

& 

# 

■* 

# 

rr 

* 

* 


* 

# 

Jf 

v 

# 

* 

# 


>S=  s*e=«e  Jit ##*#*£* ##*### a!t# $#$###  » 


CONSTANT 

(  INCLUDE  GLOBAL  CONSTANTS  ) 


EXTERNAL  EROR 
EXTERNAL  ASCHEX 


LABEL 

PROCEDURE 
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‘MrrjsciN"'*' 


GLOB  ’L 

^SECTION  DISPLAY  PROC 
iREL  0 


0000 


GLOBAL 

SKPBLK  PROCEDURE 

*  # A##***##### I###*#:###* 

#  # 

*  SKPBLK:  SKIP  OVER  BLANKS  TO  NEXT  * 

*  CHARACTER.  * 

* 

*  REG  USE:  RETURN  RL0  =  1ST  NON-BLK 

*  CHAR  AND  Z  I?  =CR  * 

*  v 

fcljtjje  £*}’!>}($:  *##){($  #*>$!$##  a#  $#)(!*  Sit*###  t 


ENTRY 

f  SKIP  OVER 

BLANKS  TO 

NEXT 

ARGUMENT  ! 

0000 

DFE0 

CAIR 

GETCHR 

0002 

9F06 

?  FT 

Z 

J 

GOT  CF  ! 

0004 

0A08 

CPB 

RL0,#'  ' 

j 

CK  FOR  BLANK 

0006 

2020 

0008 

E6T3 

JR 

Z, SKPBLK 

J 

YES . 

000A 

9E08 

RET 

I 

GOT  CHAR  ! 

300C 

END  SKPBLK 

GLOBAL 

000C 

GETADR  PROCEDURE 

J  *^2****#$**##  ***#****##*:#  A*#****##*##*** 


GSTADE:  GETS  NEXT  ARGUMENT  AND 

CONVERTS  TO  HEX  ADDRESS. 


*  PEG  USE:  INPUT  PL0  =  1ST  CH  OF  ARG  * 

*  RETURN  R3  =  HEX  ADR  * 

*  AND  2,C  IF  CR  ONLY* 

*  Z,NC  IF  ARG.CR  * 

*  NZ  , SC  IF  ARG.SP  * 

*  * 

ENTRY 

!  CK  FOR  CF.  ONLY  ! 

CLR  R3 

CPB  RL0,#CR  !  CK  FOR  CR  ! 


!  RETURN  FOR  CR  ONLY 


000C 

8D38 

CLR 

R3 

000E 

0A08 

CPB 

RL0,#CR 

0010 

0D*D 

3012 

EE02 

JR 

NZ.NOTCR 

0014 

8D81 

SETFLG 

C 

0016 

9E03 

RET 

94 


«■  « 


MICROCOPY  RESOLUTION  TEST  CHARI 


NA’iC.NAi 


! CON VERT  ASCII  ADDRESS  TO  HEX  ADDRESS  ! 
NOTCH: 


0018 

DFE2 

CA1R 

CONVERT 

!BYTE  TO  4-BIT  HEX  ! 

001A 

E70A 

JR 

C, REP ERR 

!  GOT  3AD  CHR  ! 

001  C 

BFB8 

RLDB 

HL0.PL3 

001E 

BE36 

RLDB 

RL0.RH3 

! SHJT  LEFT  TO  MSW  ! 

0020 

DEF0 

CALR 

GETCHR 

!  GET  CHR  FROM  INT3UF! 

0022 

9E06 

RET 

Z 

0024 

0A06 

CPB 

RL0,#'  ' 

! CK  FOR  SPACE  ! 

0026 

2020 

0028 

EEF7 

JR 

NZ  ,NOTCR 

!  IF  NOT  ,  CONT . ! 

002A 

D016 

CAL? 

SKPBLK 

!  SKIP  TO  NEXT  ARG  f 

002C 

3D93 

RESFLG 

C 

0  02E 

9E08 

R.ET 

!  SPACE  *FTER  ARG  ! 

REPERR: 

0030 

34  C  A 

IDA 

Rl 0 , R12 ( #ERCR ) 

0032 

0000* 

3034 

1FA8 

JP 

0F10 

0036 

END  GETADR 

GLOBAL 

0036 

GETNXT  PROCEDURE 

J  ##*:*#*£#:* * **##*#### jjc Jjr ###$ $* 

*  # 


*  # 

*  GETNXT:  SSI?  TO  BEGINING  OF  NEXT  * 

*  ARGUMENT  IN  COMMAND.  * 

*  <c 

*  REG  USE:  RETURN  RL0  =  CHAR  OR  CP  * 

*  AND  Z  I?  =  CR  * 

*  * 


**#«**##«**** :p ft**##****##*##*#**#^:*#****  f 

ENTRY 

!  SKIP  OVER  CURRENT  ARGUMENT  TO  NEXT  SPACE  ! 


0036 

DFFB 

CALR 

GETCHR 

0036 

9E06 

RET 

Z 

!  ?.TN 

IF  CH=CR  ! 

003A 

0A08 

CPB 

?L0,#'  ' 

!  FIND 

FIRST  SPACE  ! 

003C 

2020 

003E 

EEF3 

JR 

NZ  .GETNXT 

0040 

E8DF 

JR 

SKPBLK 

!  NOW 

SKIP  BLANKS  ! 

0042  END  GETNXT 
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GLOBAL 

0042  GETCHP  PROCEDURE 

I#*##*##*####**##**#*##*#**##*********#** 


*  # 

*  GETCHP:  GETS  NEXT  CHP  FROM  INT30F  * 

*  AMD  INCREMENTS  INTPTP.  * 

*  * 

*  PEG  USE:  RETURN  RL0  =  CHR  * 

*  AND  Z  IF  CR  * 

4e  4c 


# ****#*#$«*«# $*#**###*#** **#*#$**#*$«### f 

VN  Tp  y 

0042  93F2  "  PUSH  GR15.R2  !  SAVE  WORK  REG  ! 

0044  61E2  LD  32 .INTPTP 'R14) 

0046  0304 

0048  2028  LDB  RL0.GR2  !  GET  CHR  ! 

004 A  69E0  INC  INTPTR ( R14) , #1  !  INC  PTR  ! 

004C  0304 

004E  0A08  CP3  RL0,#CR  !CK  FOR  CR  ! 

0050  0D0D 

0052  97F2  POP  P2.GP15 

0054  9E08  RET 

0056  END  GETCHP 

GLOBAL 

0056  CONVERT  PROCEDURE 


*  * 

*  CONVERT:  CONVERTS  8-BIT  ASCII  CHR  * 

*  TO  4-BIT  HEX  . JLUE.  VALID  * 

*  CHR  IS  0-9  OR  A-F;  IF  NOT  * 

*  CHR,  EXIT  TO  EXEC  EROR.  * 

*  # 

*  PEG  USE:  INPUT  RL0  =  8-BIT  ASCII  * 

*  RETURN  RL0  =  4-BIT  HEX  IN  * 

*  LSW .  * 

*  * 


#4c4c#«c*jfi#4!4t4c4c«4c4c4:«)ic4c4c>(c4c4::(c# #$#*###*#*##$#*  j 

ENTRY 

I  CHECK  FOR  VALID  CHAR  ! 

0056  0A08  CPB  RL0,#'0'  f  FILTER  <'0'  ASCII  ! 

0058  3030 

005A  9E07  PET  C  I  ERROR  I 

005C  0A08  CPB  RL0,#'9'+1  I  CK  IF  DIGIT  ! 

005E  3 A3 A 

0060  E708  JR  C, NOFIX 

0062  0A08  CPB  RL0,#'A'  !  FILTER  <'A'  ASCII  ! 

0064  4141 

0066  9E07  RET  C 

0068  0A08  CPB  RL0,#'F'+1  ! FILTER  >'F'  ASCII  I 
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006A 

4747 

306C 

EF06 

JP. 

NC .PETSIG 

•ERROR! 

00  6E 

0208 

SUBB 

RL0,#7 

!  ALPHA  ADJUST  ! 

0070 

0707 

NOFIX: 

0072 

0608 

AN03 

RL0 ,#%0F 

!  GET  LOW  NIBBLE 

0074 

0F0F 

0076 

8083 

FESFLG 

C 

?079 

9E08 

RET 

!  RTN  HEX  VALUE  ! 

PETSIG : 

007A 

6081 

SETFLG 

C 

007C 

9E08 

RET 

!  RTN  ?0R  BAD  CHR 

007E 

END  CONVERT 

GLOBAL 

PBUFNC 

LA3EL 

007F 

PRNTBF 

PROCEDURE 

I  *  ##  Jjc  #  #  X:  #  *  #  *  # *  $  *  $  $  $  $  $  $  *t  #  #  *  £*  *  #  *  *  * #*  *  *  #  *  *  * 

*  * 

*  PRNTBF:  PRINT  CONTENTS  OF  0UT3UF  * 

*  TO  CONS  WITH  CR  AT  END.  * 

*  * 

*  PBUFNC:  PRINT  BUFFER  CONTENTS  WITH  * 

*  NO  CR.  * 

*  * 

*#«*$#**##*****#***#**##*#*##*#**#***### ; 

ENTRY 


1  STORE 

CR  IN  0UT3UF  ! 

007E 

6132 

LD 

R2 .OUTPTR (R14 ) 

0080 

0306 

0082 

0C25 

LDB 

GR2,#CR 

00e4 

0D0D 

0086 

69  E0 

INC 

0UTPTR(R14) ,#1 

0088 

0306 

PBUFNC : 

008A 

76E1 

LDA 

R1 , OUTBUF( R14 ) 

!  LOAD  ADR  OF  OUTBUF 

008C 

0080 

!  OUTPUT 
PENT: 

LOOP  ! 

00eE 

2018 

LDB 

RL0.GR1  ! 

GET  CHR  ! 

0090 

A910 

INC 

R1  ! 

INC  INDEX  ! 

0e92 

DFE9 

CALR 

SNDCHR  ! 

OUTPUT  CHR  ! 

0094 

E604 

JR 

Z.CUTLF  ! 

?CHR  *  CR  ! 

0096 

4BE1 

CP 

R1 ,0UT?TR'R14) 

!  CX  FOR  END  ! 

0098 

0306 

009A 

E7F9 

JR 

C.PRNT  ! 

LOO? . ! 

009C 

E802 

JR 

FINI  ! 

FINISHED  ! 

9? 


!  ADD  LF  AFTER  OUTPUT  OF  CE  ! 

OUTLF: 

009E  C80A  LDB  RL0,#LF  !  OUTPUT  LF  ! 

00AP  DFF0  C  »LH  SNDCHR 

!  FILL  OUTBUF  WITH  BLANKS  AND  RESET  OUTPTR  ! 
FINI  : 


00A2 

76E3 

LDA 

R3. OUTBUF (R14) 

00A4 

0080 

00A6 

6FE3 

LD 

0UTPTR(R14) ,R3  !  RSSET  PTR  ! 

70A8 

0306 

00  AA 

2100 

LD 

R0 , #OUTS IZ/2-1  !  FILL  CNT  ! 

00AC 

003F 

00AS 

4DE5 

LD 

CUTBUF(R14),#'  ' 

00B0 

0080 

00B2 

2020 

00B4 

76E2 

LDA 

R2,0UTBUF(R14) 

00B6 

0080 

00B8 

A123 

LD 

R3.R2 

00BA 

A  931 

INC 

R3,#2 

00BC 

EB21 

LDIR 

0R3 ,0R2 , R0  !  FILL  OUTBUF  ! 

00BE 

0030 

00C0 

9E08 

RET 

00C2 

END  PRNTBF 

GLOBAL 

00C2  SNDCHP  PROCEDURE 


#  * 

*  SNDCHR:  CK  MONITOR  FLAG  WORD  FOR  * 

*  OUTPUT  STOP  SIGNAL  (OSTOP);  * 

*  IF  NOT,  SEND  CHAR  TO  CONS.  * 

*  * 

*  REG  USE:  INPUT  RL0=  CFR  * 

*  RETURN  RL0=  CHR  AND  Z  IF  * 

*  CHR  =  CR.  * 

*  * 


ENTR  t 

!  WAIT  FOR  OUTPUT  OK  SIGNAL  ! 


00C2 

67E2 

BIT 

MFLAGS (R14) , 

#OSTCP 

!  CK  FLAG 

! 

?0C4 

031C 

00C6 

EF.FD 

J? 

NZ, SNDCHR 

!  OUTPUT 

CHAR  TO  TERMINAL 

! 

00C8 

3A04 

INB 

RH0.PORTBC 

! 

GET 

PORT  STATUS 

j 

00CA 

FFS3 

00CC 

A600 

BITB 

RH0,#TXR 

!  TRANS  RDT?  ! 

00CE 

F6F9 

JR 

Z, SNDCHR 

j 

NO, 

CONTINUE. . . ! 

00D0 

3A66 

OUTB 

PORTBD ,RL0 

i 

YES 

,  OUTPUT  CHP. 

! 

00D2 

FFE1 

98 


00D4 

0A08 

CP3 

RL0.WCR 

00D6 

0D0D 

00D8 

9E08 

RET 

O0D  A 

END  SNDCH 

A 

GLOBAL 

C0NV3 

LABEL 

00DA 

C0N7W 

PROCEDURE 

J  **4^#**#*#####* ************************* 

* 

$ 

*  CONVW 

:  CONVERT  INTERNAL  WORD ,  4- 

* 

4-BIT  HEX  VALUES  TO  FOUR 

* 

* 

8-BIT  ASCII  REPRESENTATIONS 

* 

♦ 

OF  THE  HEX  VALUES. 

# 

* 

* 

*  CCNVB 

:  CONVERT  INTERNAL  BYTE  HEX 

* 

VALUE  TO  ASCII  CHARACTERS. 

* 

* 

*  REG  USE:  INPUT  R5  =  WORD /BYTE ( S  ) 

* 

R3  =  CXSUM  ACCUM 

RETURN  R3  =  UPDATED  ACCUM 

* 

* 

AND  ASCII  CHR 

* 

IN  OUTBUF 

* 

#*$**##*«#**# £*******4*#*$*#*##**$#***$«  t 

ENTRY 
!  CONVERT 

WORD  ! 

00DA 

A050 

LDB 

RH0.RH5  !  1ST  BYTE  ! 

00DC 

DFFF 

CAL? 

NIBBLE 

!  CONVERT 
CONVB: 

BYTE  ENTRY  POINT  ! 

00DE 

A  01)0 

LDB 

?.H0,  RL5 

NIBBLE: 

00E0 

BE08 

RLEP 

RL0.R30  !  FIRST  NIBBLE 

! 

00E2 

DFFF 

C  ALE 

CONPUT 

00E4 

BE08 

RLDB 

RL0.RH0  !  NEXT  NIBBLE 

i 

! CONVERT 
CONPUT: 

NIBBLE  TO  ASCII  CHAR  AND  STORE 

! 

00  E6 

0608 

ANDB 

RL0,#%0F  J  GET  NIBBLE  ! 

00E8 

0F0F 

00EA 

809B 

ADDB 

RL3, RL0  !  UPDATE  CKSUM 

; 

30EC 

0A08 

CPB 

F.L0,  #%0A  !  0-9?  ! 

00EE 

0A0A 

00F0 

E?02 

JR 

C,  ASCII  !  YES...  ! 

00F2 

0008 

ADDB 

RL0,#7  !  NO,  CONVERT  1 

CHR  ! 

00E4 

0707 

ASCII: 

00F6 

0008 

ADDB 

RL0,#%30  !  CONVEPT  TO  ASCII  ! 

00F9 

3030 

99 


!  STORE  IF 

OUTBUF  ! 

03FA 

93F1 

PUSH 

0R15.R1  !  SAVE  FI  ! 

00FC 

61S1 

LD 

R1  .OUTPTR  fS14) 

00FE 

0306 

0100 

2E18 

LDB 

0R1.RL0  !  STORE  CHR 

0102 

69E0 

INC 

OUTPTR (R14) 

0104 

0306 

0106 

97F1 

POP 

?1  ,OR15 

0108 

9E0S 

RET 

010A 

END  CONVW 

GLOBAL 

DISPNC 

LABEL 

010A 

DISP 

PROCEDURE 

j#**#*##****#*jM^*********#* ************* 
*  # 

*  DISP:  CONVERTS  INPUT  TO  FOUR  ASCII  * 

*  CHAR,  STORES  IN  OUTBUF,  AND  * 

*  DISPLAYS  WITH  CR?  G*TS  NEXT 

*  8  ASCII  CHARS,  STORES  IN 

*  INTBUF.  AND  CONVERTS  TO  HEX  * 

*  LONG  WORD  IN  RR2 .  * 

*  * 


*  DISPNC:  SENDS  TO  CONSOLE  ALL  IN  * 

*  OUTBUF  UP  TO  OUTPTR ,  WITHOUT  * 

*  GETS  NEXT  8-ASCII  CHR  * 


* 

* 

cr;  gets 

NEXT  8-ASCII  CHR 

* 

* 

* 

REG  USE:  INPUT 

R5  *  WORD 

* 

* 

RETURN 

R2.R3  =  8-HEX 

* 

* 

AND  C  IF  REC  0 

* 

* 

NC.Z  IF  CR 

* 

* 

NC.NZ  IF  INPUT 

* 

* 

* 

WITH  CR 

* 

* 

♦a#,*###***#*#***.##*#*****#****##*****#*#*  i 

ENTRY 


010A 

D019 

CALF. 

CONVW  J  ADD 

SPACE  ! 

010C 

69E0 

INC 

0UTPTR(R14) ,#1 

010E 

0306 

DISPNC : 

0110 

D044 

CALR 

PBUFNC  !  OUTPUT  TO  CONS  ! 

3112 

34CA 

LDA 

R10,R12(#ASCHEX) 

0114 

0000* 

0116 

1FA0 

CALL 

<?R10  !  GET  NEW 

R2,R3  INPUT  ! 

0118 

9E06 

PET 

011A 

END  DISP 
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■»  * 


GLOBAL 

011A  DISPLAY  PROCEDURE 

J  j*##**#####*#*#,}!##***#*##*#**##,}:####**#**: 


*  * 

*  DISPLAY:  DISPLAYS  SPECIFIED  CONTENTS* 

*  CF  MEMOS!.  * 

*  * 

*  REG  USE:  RH7.RL7  =  #BYTES/SPACE  * 

*  F8  =  OUTIUF  ADR  FOR  OUTPUT  * 

*  311  =  <ADDR>  * 

*  F 13  =  <COUNT>  * 

$  $ 


**»**{  ***$#*##  S#**  ««**#**##*#*#  J 


ENTRY 


Oil  A 

D073 

CALR 

GETNXT 

011C 

2107 

LD 

37  ,#%202 

011E 

0202 

0120 

EE01 

J? 

NZ  .GOTAEG 

! 

E»7E  NEXT  APG  ! 

0122 

F84C 

JR 

EX  ERR 

! 

RETURN  TO  EXEC  ! 

GOTAPG : 

0124 

D08D 

CALR 

GETADR 

! 

NEXT  APG  IS  ADR  ! 

0126 

A13B 

LD 

311 ,R3 

i 

SAVE  ADDRESS  ! 

0128 

F637 

JR 

Z, SUB MOD 

! 

<  ADR'><CP>  =  SUBMODE! 

012A 

D090 

CALR 

GETADR 

! 

GET  <CNT>  f 

P12C 

A13D 

LD 

R13.R3 

012E 

F601 

J?. 

Z. TSTCNT 

» 

GOT  CP  AFTER  <CNTS>  ! 

0130 

SE45 

JR 

NZ.EXERR 

i 

NOT  THERE. . . . ! 

TSTCNT: 

0132 

8DD4 

TEST 

SI  3 

i 

TEST  <CNT'>  ! 

0134 

E643 

JR 

Z.SXERR 

i 

<CNT>=0,  ERROR  ! 

!  MAIN  LOOP 

FOR  PRINTING 

DISPLAY  LINES  ! 

NEWL  : 

0136 

2109 

LD 

R9.#16 

; 

BYTES/LINE  ! 

0138 

0010 

313A 

A1B5 

LD 

R5.P11 

013C 

D032 

CALR 

CONVW 

! 

CONVERT  BYTE  ! 

P13E 

69E0 

INC 

OUTPTR (R14 ) 

0140 

0306 

0142 

76E0 

LDA 

R8t0UTBUFfR14)  !  SET  DISPLAY  ! 

0144 

0080 

0146 

0108 

ADD 

S8 ,#53 

0148 

0035 

!  FORMAT  ! 

014A 

0C85 

LDB 

P?8,#  '* ' 

014C 

2A2A 

014E 

*980 

INC 

R8 

!  LOOP  FOR  DISPLAY  B/W/L  UNITS  ! 


PUTONE: 


0150 

20BD 

LDB 

RL5.0R11 

!  FETCH  MEMORY  ! 

0152 

2E8D 

LDB 

0RS.RL5 

0154 

0A  0D 

C?B 

FL5,#'  ' 

!  CK  FOR  CHAR  ! 

3156 

2020 

0159 

S703 

JR 

C.DONTP 

!  DONT  PRINT  ! 

015A 

PA0D 

CP3 

RL5, #%7F 

!  CK  FOR  PRNT  CHR  ! 

315C 

7T7E 

015E 

E702 

JR 

C  .RITE 

!  YES,  PRINT  ! 

DO  NT?: 

0160 

0C85 

LDB 

0R8, # ' . ' 

!  REPLACE  WITH  '  ! 

0162 

2E2E 

RITE: 

0164 

A980 

INC 

R8,#l 

0166 

0C85 

LDB 

0R8,#'*' 

0168 

2*2  A 

016A 

D047 

CALF 

CONVB 

f  CONVERT  WORD  ! 

016C 

A9B0 

INC 

Rll  ,#1 

!  INC  MEM  PTR  ! 

016E 

AB90 

DEC 

R9 

0173 

FE08 

JR 

NZ .SPACE 

!  NOT  EOL  ! 

0172 

A  980 

INC 

R8 

0174 

6EE8 

LD 

OUTPTR ( R14) 

,R8  !  SET  PTR  TO  EO 

3176 

0306 

0178 

D07E 

CALR 

PRNTBF 

!  PRINT  LINE  ! 

017A 

»07F 

LDB 

RL7.RH7 

!  RESET  3/SP  CNT  ! 

017C 

ABD0 

DEC 

R13 

017E 

EEDB 

JR 

NZ.NEWt  ! 

START  NEW  LINE  1 

0180 

9E08 

RET 

!  OR  ELSE  DONE  ! 

!  CHECK  FOR 
SPACE: 

POSITION  OF 

SPACE  I 

0182 

EF1 A 

D3JNZ 

RL7.PUTONE 

!  NO  SPACE  YET  ! 

0ie4 

69E0 

INC 

OUTPTR (R14) 

!  PUT  SPACE  ! 

0186 

0306 

0188 

A  07F 

LDB 

RL7, RH7 

!  RESET  B/SP  CNT  ! 

018A 

ABD0 

DEC 

R13 

018C 

EEE1 

JR 

NZ  .PUTONE 

!  CONTINUE .  t 

718E 

A980 

INC 

R8 

0190 

6FE8 

LD 

OUTPTR (R14) 

CO 

*■ 

0192 

0306 

0194 

U08C 

CALR 

PRNTBF 

!  FINISHED  ! 

0196 

9E08 

RET 

!  SUBSTITUTION  MODE.  SINGLE  DISPLAY  ! 

SUBMOD: 

0198 

A1B9 

LD 

R9.R11 

019A 

A1B5 

LD 

R5.R11 

019C 

D062 

CALF 

C0N7W 

!  CONVERT  BYTE  ! 

019E 

69E0 

INC 

OUTPTR (R1 4) 

01A0 

0306 

5 
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AGAIN: 

01A2  20PD  LD3  RL5.8R11 

01*4  D064  CAL?  CONVB  !  CONVERT  WCRI  ! 

01 A6  A9P0  INC  Rll,#l 

01A8  EF04  D3JNZ  RL7, AGAIN 

01 A  A  69F3  INC  OUTPT?.(R14)  ,#1  !  INSERT  SPACE  ! 

01 AC  0306 

01 AE  A07F  LD3  RL7.RH7  !  RESET  B/SP  CNT  ! 

!  GET  SUBSTITUTION  OR  'O'  OF.  CR  ! 

01B0  D051  CALR  DISPNC 

01B2  9E07  RET  C 

0134  E6E1  JR  Z  , SUB  MOD  !  GOT  CR . ! 

01B6  2E93  LD  0R9.R3  ?  SUBST.  WORD  I 

0138  A07E  LDB  RL7.RH7  !  RESET  B/SP  CNT  ! 

01B A  E8FE  JP  SUBHOD 

EX  ERR: 

01 BC  34CA  LDA  R10 , R12 f #EROR ) 

01BE  0000* 

01C0  1 EA8  J?  (?F10 

01C2  END  DISPLAY 


01C2 


GLOBAL  BIARG  LABEL 
GLOBAL  TRIARG  PROCEDURE 

I##**##****##****####*###**##**:*:**#*#**#* 

*  TRIARG:  GETS  NEXT  THREE  ARG  AFTER  * 

*  CMD,  INTO  INTBUF;  ASCII-TO-  * 

*  HEX  CONVERSION  IS  PERFORMED  * 

*  ON  ADDRESSES. 


BIARG:  SEEKS  NEXT  TWO  ARG  IN  THE 
SAME  MANNER. 


REG  USE:  RETURN 


=  3RD  ARG  (TRI)  * 
=  2ND  ARG  * 
=  1ST  ARG  * 


R3  =  2ND  ARG  (31) 
R4  =  1ST  ARG 
AND  NC  IF  ALL  ARG 


ENTRY 

P1C2  D0C7  ‘  C  A.LC  GETNXT  !  SKIP  REST  OF  CMD  ! 

01C4  DODD  CALR  GETADR  !  GET  1ST  ARG  ! 
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C1C6 

S603 

J?. 

Z,  ERRSTP 

!  CR=ERROR  ! 

01CS 

A135 

LD 

7.5  ,?3 

01 CA 

E801 

JR 

G2T2ND 

!  TWO  sRGUMENTS  ENTRY  POINT  ! 

BIARG: 

31 CC 

race 

CALR 

GETNXT 

GET2ND: 

01CE 

D052 

CALR 

GETADR 

!  GET  NEXT  ARG  ! 

01D0 

E603 

JR 

Z.ERRSTP 

!  CR*5  ERROR  ! 

31D2 

A 134 

LD 

R4.F3 

01D4 

D0E5 

CALR 

GETADR 

I  GET  LAST  ARG  I 

01D6 

9E0F 

RET 

NC 

ERRS TP: 

01D6 

8D81 

SETFLG 

C 

ISIGNAL  ERROR! 

31  DA 

9E08 

RET 

01  DC 

END  TEIARG 

GLOBAL 

01DC 

MOVE  PROCEDURE 

J  ##****##**##*#*  fc#****#:*#*#####*****#*##* 

* 

*  MOVE:  MOVES  DATA  IN 

MEMORY.  * 

# 

* 

*  REG  USE 

:  RETURN  F.5 

=  <ADR>  * 

* 

R4 

=  <NEW  ADR>  * 

* 

* 

ENTRY 

31DC 

D00E 

CALR 

TRIARG 

!  GET  THREE  ARGS 

01DE 

E70D 

JR 

C,  WTF 

!  NOT  ENOUGH  AF.G  I 

0150 

A156 

LD 

R6,R5 

Z1E2 

8346 

SUB 

R6.R4  ! 

FIND  MOVE  DIRECT  ! 

0154 

5703 

JR 

C,UP  ! 

WILL  MOVE  UP....  ! 

0156 

BA51 

LDISB 

OR4, 0R5 ,R3 

!  WILL  MOVE  DOWN  ! 

eiE8 

0340 

01 SA 

9E08 

RET 

UP: 

015C 

8135 

ADD 

P.5.R3 

01SE 

AB50 

DEC 

R5 

01 F0 

8134 

ADD 

R4.R3 

01F2 

AB40 

DEC 

R4 

01 F4 

BA59 

LDDRB 

OR4,0R5,R3 

!  MOVE  BLOCK  ! 

01F6 

0340 

01F8 

9508 

RET 

WTF: 

01FA 

34CA 

LDA 

R10 ,R12 (#EROR ) 

01FC  0000* 
0 1FE  1EA8 


JP 


(?R10 


3200  END  MOVE 

0200  GLOBAL  FILL  PROCEDURE 

1  it*####*####*###*.###########*:############ 
#  # 

*  FILL:  STRCES  GIVEN  DATA  I'ORD  IN  ALL  * 

*  SPECIFIED  MEMORY  LOCATIONS.  * 

$  * 

#**##«**##«$# «#******#******##**#«#*::*#**  I 

ENTRY 


3200  34CA 

LDA 

R10.R12(#EROR) 

0202  0000* 

0204  D022 

CALF 

TRIARG 

f  FETCH  THREE  ARCS  ! 

0206  1EA7 

JP 

C ,0R10 

0208  A 750 

BIT 

R5  ,#0 

! MUST  BE  EVEN  ATR ! 

020A  1 EAE 

JP 

NZ.0R10 

020C  8354 

SUB 

R4,R5 

! COMPARE  START  TC! 

!  END ! 

020E  1EA7 

JP 

C.0R10 

0210  B341 

SRL 

R4,#l 

!  SET  COUNT! 

0212  FFFF 

0214  2F53 

LD 

0R5.R3 

! STORE  DATA  AT  START! 

0216  9E06 

RET 

Z 

! ONLY  ONE  REO  ! 

0218  *153 

LD 

P3,?5 

021A  A931 

INC 

R3  f#2 

!NEXT  MEM  LCC  ! 

021C  3B51 

LDIE 

0H3 ,0R5,R4 

!  FILL  ALL  ! 

021E  0430 

0220  9E08 

RET 

0222 

END  FILL 

END  DISPLAY  CMD 
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6.  BKK  CUIT  MODULE 


Z8000ASM 
LOC  OBJ 


.02 

CODE  STMT  SOURCE  STATEMENT 

1  3RK  QUIT  CMD  MODULE 
^LISTON  $T?Y 

f  *#*«***$#**#*#***####*##*###$**:**#*«#### 
#  * 

*  BREAK:  COMMAND  TO  RESET  A  BREAK  ADR  * 

*  REMOVES  AN  OLD  ONE,  ANT  SETS  * 

*  A  NEW  ONE.  * 

*  * 

*  QUIT:  COMMAND  TO  ENTER  THE  TRAN SPAR . * 

*  MODE  WHERE  ALL  RECEIVED  CHAR  * 

*  ARE  ECHOED  BETWEEN  MCZ  SYS  * 

*  AND  CONSOLE.  Z8000  FUNCTIONS  * 

*  IN  RELAY  CAPACITY  ONLY.  * 


*  * 

*  SYNTAX:  BREAK  [<ADR> ]  * 

*  QUIT  * 

*  * 


CONSTANT 


(  INCLUDE  GLOBAL  CONSTANTS  ; 


EXTERNAL 
EXTERN  SL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 


GETNXT 

GET ADR 

GMCZAD 

SNDMCZ 

GETBUF 

SNDCHR 

EROR 

SKPBLK 

CONVERT 

GETCHR 


PROCEDURE 

PROCEDURF 

PROCEDURT 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 


GLOBAL 

$S ECTION  BRK  QUIT  PROC 
$REL  0 
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33(70 


GLOB 

ASCHEX  PROCEDURE 

j  at:*####*!*#;:*** 


* 

*T* 

* 

* 

* 

# 


ASCHEX:  ROUTINE  TO  CONVEIT  ONE  LINE  * 
CF  ASCII  INPUT  TO  HEX  VALUE  * 
(8-ASCII  CKit  TO  ONE  LWORD )  * 

*1* 

REG  USE:  RETURN  RR2  =  9-ASCII  CHR  * 

AND  C  IF  REC  '0'  * 

NC,Z  IF  CR  * 

NC.NZ  IF  SPACE  * 
* 


a**###:*#*#*###  Hr.##########* J 

ENTRY 


0000 

C82  A 

LDB 

F.L0 ,  #  '*  ' 

0002 

34  C  A 

LDA 

R10,R12(*SNDCHR ) 

0004 

0300* 

0006 

1FA0 

CALL 

0S13 

!  OUTPUT  PROMPT  ! 

3008 

DFE0 

CAL? 

GETLME 

!  GET  LINE  INT3UF 

300A 

8D29 

CLR 

R2 

eoec 

8D38 

CL? 

R3 

!  CLR  RETURN  REGS 

000E 

34CA 

LDA 

R10,R12(#SK?BLX) 

0010 

0000* 

0012 

1FA0 

CALL 

OR  10 

0014 

9E06 

RET 

Z 

!  REC  CR  ! 

0016 

0A09 

CPE 

RL0,#  '0  * 

0018 

5151 

001A 

EE02 

JR 

NZ.GB3 

!  NOT  '0' . ! 

001C 

8E81 

SETFLG 

C 

001E 

9E08 

RET 

!  RETURN  WITH  '0' 

GE3: 

0020 

34CA 

LTA 

R10,R12 (# CON VERT ) 

0022 

0003* 

0024 

1FA0 

C  ILL 

0R10 

!  ASCII  TO  HEX  ! 

0026 

E70E 

JR 

C , ENDERR 

!  NON-ASCII  CHR  ! 

0028 

3EB8 

RLDB 

RL0.RL3 

302A 

EE38 

RLDB 

RL0.RH3 

002C 

BEA8 

RLDB 

RL0.RL2 

002E 

BE23 

RLDB 

RL0,RH2 

!  ROTATE  NIBBLE  ! 

0030 

34CA 

LDA 

R13 ,  R12 ( #G£TCHR ) 

0032 

0000* 

0034 

1FA0 

CALL 

OR  10  ! 

GET  NEXT  ASCII  CHAR  ! 

3036 

E604 

JF 

Z , NOMORE 

!  GOT  NOTHING  ! 

0038 

0A08 

CP3 

RL0 , # '  ' 

!  END  OF  INPUT  ! 

003A 

2020 

003C 

EEF1 

J? 

NZ.GB3 

!  YES,  ALL  DONE  ! 

003E 

8D83 

RESFLG 

C 

NO  MOPE: 


i 

i 


0040 

8D43 

RESFLG 

Z 

0042 

9E08 

SET 

ENDERR: 

0044 

34CA 

LDA 

R10 ,  P.12  (  #EROP. ) 

0046 

0000* 

0048 

1EA8 

JP 

0R10 

004A 

END  ASCHEX 

GLOBAL 

004A 

GETLNE  PROCEDURE 

f  * **###*#*##*;* **###***#*###*  *#####£##**#* 

&  2*r 

*  GETLNE: 

REC  ONE  LINE  INPUT 

FROM 

* 

CONS  (PORT2) ,  UP  TO  S0-CHR 

MAX,  STORE  IN  INTBUF  PLUS 

* 

CR,  AND  ECHO  BACK 

TO  CONS. 

* 

*  REG  USE 

:  RETURN  RL0=  1ST 

CHR  IN  BUF* 

* 

AND  Z  IF 

CHR  •  CR 

* 

* 

*  *  #  #  $  a*  #  #  #  *  $  #  jjt  $  *  *  #  #  *  «  #  *  *  $  #  *  *  #  *  #  #  *  « 

*! 

ENTRY 

004A 

?6E2 

LDA 

F2,INTBUF(R14) 

!  GET  BASE 

INTBUF 

004C 

0000 

004E 

2101 

LD 

R1,#INSIZ  !  GET 

MAX  SIZE 

; 

0050 

0080 

0052 

6PE2 

LD 

INTPTR1R14) ,R2 

0054 

0304 

0056 

DFF7 

CALR 

CONSOL  !  FILL 

LINE  IN  INTBUF! 

0058 

E6F5 

JR 

Z.ENDERR  1  LINE 

TOO  LONG 

; 

005A 

34CA 

LDA 

R10,R12(#SKP3LK) 

005C 

0000* 

005E 

1FA0 

CALL 

QR10 

0060 

6BE0 

DEC 

INTPTR( R14)  ! 

RETURN  TC 

START 

0062 

0304 

0064 

0A08 

CPB 

RL0,#CR 

0066 

0D0D 

0068 

9E08 

RET 

!  GOT 

1ST  CHR  = 

CR  1 

006A 

END  GETLNE 
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GLOBAL 

O06A  CONSOL  PROCEDURE 

I  ftftftftftftftftftftftftft  ftfts;tftftftftftftftftftftftftftft#ftft#ftftftftftft 


*  CONSOL: 

•f 

STORE  CONS  INPUT  LINE  IN  * 

ft 

BUFFER  ADDRESS  PROVIDED,  * 

ft 

PLACE  CR  AT  END  OF  LINE,  * 

# 

AND  PROVIDE  DELETE  CHAR  * 

# 

AND  DELETE  LINE  EDIT  FUNC.  * 

ft 

ft 

*  REG  USE 

:  INPUT  R1  =  SIZE  OF  BUFFER  * 

# 

R2  =  BUFFER  ADR  * 

ft 

RETURN  R1  =  ft  OF  RZC  C3R  * 

ft 

AND  Z  IF  BUF  LIMIT  * 

ft 

ft 

ft####################################### | 

ENTRY 

006/ 

6FE2 

LD 

BUFADRU14)  ,R2  !  SAVE  BCTH  BUF  ADR 

006C 

0300 

006E 

6FE1 

LD 

BUFSIZ (R14 ) ,R1  !  AND  BUF  SIZE  ! 

0070 

0302 

HDNG : 

0072 

61E2 

LD 

R2 .BUPADR 'R14 ) 

0074 

0300 

0076 

8D18 

CLR 

PI 

REDLOP: 

0078 

DFC1 

CALR 

CCNRD  !  GET  CHAR  AND  ECHO  ! 

307A 

0A08 

CPB 

RL0,#%61  !  CONVERT  TO  UPPER  CASE! 

307C 

6161 

007E 

E704 

JR 

C, UPCASE  !  NOT  LOWER  CASE  ! 

0080 

0A08 

CPB 

EL0, #%7B 

0082 

7373 

0084 

EF01 

JR 

NC, UPCASE  !  YES  LOWER  CASE  ! 

0086 

A285 

RES3 

RL0, #5  !  CONVERT  TO  UPCASE  ! 

UPCASE: 

eoaa 

2E28 

LDB 

0R2.RLZ 

!  PERFORM  EDIT  FUNCTIONS  ON  INPUT  ! 

000A 

0A08 

CP3 

RL0,#3S  ! CK  FOR  EEL  CHR  ! 

008C 

0808 

006S 

EE11 

JR 

NZ.CONTCK  !  NO,  CONTINUE  CK  ! 

0090 

AB20 

DSC 

R2,ftl  !  YES,  BACKSPACE'! 

0092 

AB10 

DEC 

K1 

0094 

4BE2 

CP 

R2,BUFADR(R14)  !  NOT  TOO  FAR  l 

0096 

0300 

0098 

E707 

JR 

C , DC  OVR 

009A 

C820 

LDB 

RL0, ft '  ' 

009C 

34CA 

LDA 

R10 ,R12 ( ftSNDCHR ) 

009E 

0000* 

00A0 

1FA0 

CALL 

0*10  !  BLANK  OUT  BAD  CHE  ! 
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00A2 

C80e 

LDB 

RL0,#ES 

00A4 

1FA0 

CALL 

OR10 

00A6 

E8E8 

JR 

REDLOP  !  CONTINUE . f 

DO  OVR  : 

00  AS 

C82A 

LDB 

F.L0 ,  #  '*  ' 

00AA 

34C  A 

LDA 

R10,R12(#SNDCHR) 

00AC 

0000# 

00  AS 

1FA0 

CALL 

OR  10  !  SEND  PROMPT  ! 

00B0 

E8E0 

JR 

HDNG  !  START  AGAIN  ! 

CONTCK  : 

0032 

0A08 

CPB 

RL0, WLINDEL  !  CK  FOR  LINE  DEL 

00B4 

7F7F 

00B6 

E609 

JR 

Z, DELINE  !  YES . ! 

00BS 

A920 

INC 

R2,#l 

00BA 

A910 

INC 

R1 

00BC 

0A08 

CPB 

RL0,#CR  !  CK  ECR  CR  ! 

00BE 

0D0D 

00CZ 

E60S 

jo 

Z , ADDLF  !  YES,  ADD  LF  CHR 

00C2 

4BE1 

CP 

R1 .BUFSIZ (R14)  !  SIZE  CK  ! 

00C4 

0302 

00C6 

EED8 

JP. 

NZ, REDLOP  !  OK,  GET  NFXT  CEE 

00C8 

9E06 

RST 

Z  !  TOO  LARGS,  ERROR 

DELINE: 

00CA 

C85E 

LDB 

RL0,#%5E 

00CC 

34CA 

LDA 

R10,R12(#SNDCHR)  !  S ND  LINE  DEL 

00CE 

0000* 

00D0 

1FA0 

CALL 

OR  10 

00D2 

DFF5 

CALR 

NEWLNE  !  START  NEW  LIME  ! 

00D4 

C820 

LDB 

F.L0, # '  ' 

00D6 

34CA 

LDA 

R10 ,R12 ( #SNDCHR ) 

00D8 

0000* 

00DA 

1FA0 

CALL 

OR10  !  S ND  CHR  ! 

00DC 

E8CA 

JR 

HDNG  !  START  AGAIN  ! 

ADDLE: 

00DE 

C80A 

LDB 

RL0,#LF 

00E0 

34CA 

LDA 

R10,R12  ( #SNDCHP. } 

00E2 

0000* 

00E4 

1FA0 

CALL 

OR10  !  SEND  LF  CHR  ! 

00E6 

8D43 

RESFLG 

Z 

00E8 

9E08 

RET 

00EA 

END  CONSOL 

GLOBAL 

J0EA  NE'*’LNE  PROCEDURE 


*  NEVLNE:  SENDS  CR  AND  LF  TO  CONSOLE  * 


*  S? 

$#**&****$$$#  $*#***#####* ;:#*#***$*****$$* 

ENTRY 

00EA 

34C  A 

LDA 

R10, 312 ( tfSNDCHR ) 

00EC 

0000* 

00EE 

C80D 

LEB 

RL0, #CR 

00F0 

1FA0 

CALL 

OP.  10 

00F2 

C80A 

LDB 

RL0, #LF 

00F4 

1FA0 

CALL 

9310  !  ADR  SNDCHB  IN  R10 

00F6 

9F08 

RET 

00F8 

END  NEWLNE 

GLOBAL 

00F8 

CONRD  PROCEDURE 

*  CCNRD: 

T 

GETS  CHAR  FROM  CONSOLE  INPUT  * 

BUFFER  (INTBUF)  AND  ECHOS 

* 

BACK  TO  CONSOLE.  LOOPS  UNTIL  * 

* 

RECEIVE  CHARACTER .  * 

* 

* 

*  REG  USE 

:  RETURN  RL0*  CRR  * 

* 

AND  2  IF  CHR-CR  * 

* 

* 

ENTRY 

00F8 

61E0 

TC  :LD 

R0,GETOUT(E14) 

00FA 

030  E 

00FC 

4BE0 

C? 

R0.NXTPTR (314)  !  COMPARE  G! 

00FE 

030C 

!  PUT  PTRS  ! 

0100 

E6FB 

JR 

Z ,  TC  :  REC  NOTHING... 

0102 

93F2 

PUSH 

0P.15.R2 

0104 

34CA 

LDA 

R10,R12(#GET3U?; 

0106 

0000* 

0108 

1FA0 

CALL 

OP 10  f  GET  RNGBUF  ADD 

010A 

6FE0 

ld 

GETOUT (R14) ,R0 

01 0C 

030E 

010E 

2028 

LDB 

FL0, 9F.2  f  STO  CHR  FOR  RTN 

0110 

97F2 

POP 

R2.0R15 

!  CHECK  FOR 

NON-DISPLAY  FROM  LOAD  FILE  ! 

0112 

0B09 

C? 

R9,#%AAAA 

0114 

AAAA 

0116 

E603 

JR 

Z f NO  DISPLAY 

0118 

34CA 

LDA 

R10, R12 (#SNDCHP ) 

’I 


011 A 

0000* 

011C 

1FA0 

CALL 

0R10 

NO  DISPLAY: 

011E 

9E0S 

RET 

0120 

END  CCNRD 

GLOBAL 

0120 

BREAK  PROCEDURE 

J  Sfc#*****#*#*## 

* 

* 

*  BREAK 

:  CLEARS  PPEVIOU5LY  SET  BREAK  * 

* 

POINT  BY  REPLACING  UNIMP.  * 

* 

INSTRUCTION  (0E00)  WITH  ORG  * 

* 

INSTRUCTION  FOR  THE  ADR,  AND  * 

# 

SETS  A  NEW  BREAK  POINT  IF  * 

SPECIFIED  ( <ADR> ) .  * 

* 

* 

ENTRY 

!  CLEAR  PREVIOUS  BREAK  POINT  ! 

0120 

61E2 

LD 

R2,BRKAER(R14) 

0122 

0316 

0124 

61  El 

LD 

R1  ,BRKSTR (R14) 

0126 

0314 

0128 

2F21 

LD 

0R2.R1  !  RESTORE  INST  ! 

012A 

4DE8 

CLR 

BRKADR(R14) 

012C 

0316 

012E 

4DE8 

CLR 

3RKSTR(R14) 

0130 

0314 

0132 

4DE5 

LD 

BRKCNT(R14) ,#1  !  RESET  CNT  TO 

0134 

030A 

0136 

0001 

0138 

34CA 

LDA 

R10,R12(#GETNXT) 

013  A 

0000* 

013C 

1FA0 

CALL 

3P10  !  GET  NEXT  ARGUMENT  f 

013E 

9E06 

RET 

Z  !  NO  NEW  ADDRESS  ! 

!  GET  NEW 

BREAK  A DDF ESS  ! 

0140 

34CA 

LDA 

R10 ,R12 ( #GETADR ) 

0142 

0000* 

0144 

1FA0 

CALL 

OR  10  !  GET  3RK  ADR  ! 

0146 

A132 

LD 

R2 , R3  !  SAVE  BPK  ADR  ! 

0148 

E607 

JR 

Z,GB4  !  NO  BRKCNT. . .! 

!  GET  NEW 

BREAK  COUNT  ! 

01 4A 

34CA 

LDA 

R10.R12 (#GETADR ) 

014C 

0000* 

ei4E 

17A0 

CALL 

OR 10  !  GET  COUNT  ! 

0150 

8D34 

TEST 

R3  I  TEST  FOR  ZEFO  ! 
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0152 

E602 

JR 

Z.GB4  BRKCNT  =  1  ! 

NCZ : 

0154 

6FE3 

LD 

BRKCNT  (r  14) ,  F.3  »  SET  BRKCNT  ! 

0156 

030A 

!  SET  UN  IMPLEMENTED  INSTRUCTION  IN  BF.FAX  .‘DR  ! 

GE4: 

0158 

A320 

RES 

R2,#0  !  MAKE  EVEN  ADR  ! 

015A 

6FE2 

LD 

BRICADR  (  R14) ,  R2 

015C 

0316 

015F 

2121 

LD 

R1  ,0R2 

C160 

6221 

LD 

BRKSTR(R14),R1  !  SAVE  INST  ! 

0162 

0314 

0164 

61  El 

LD 

R1  ,UNIMP'R14) 

0166 

0308 

0168 

2221 

LD 

0F2.R1  !  PLACE  '0E00'  ! 

!  CHECX  FOR  WRITE  TO  EXISTING  MEMORY  ! 

016A 

2121 

LD 

HI ,022 

016C 

4B21 

CP 

SI , UNIMP ( R14 ) 

3162 

0308 

ei?0 

9206 

RET 

7 

0172 

4D25 

LD 

EtXCNT(  HI  4)  ,  *1  J  MEMORY  NOT  THERE 

0174 

030A 

0176 

0001 

0178 

4DE8 

CLR 

BF.XADR  (R 14 ) 

017A 

0316 

017C 

4DI8 

CLR 

BRXSTR'R14) 

0172 

0314 

0180 

34CA 

LDA 

H10,R12 ' *EBOR ) 

0192 

0000* 

3184 

1EA6 

JP 

0F10  !  GOT  WRONG  BRK  ?NT  ! 

0186 

END  3REAK 

GLOBAL 

0186 

QUIT  PROCEDURE 

* 

* 

*  QUIT: 

TRANSMITS  ALL  CHF  AND  CR  FROM  * 

* 

CONS  TO  MCZ?  THEN  RELAYS  ALL  * 

A 

TO  CONS  FROM  MCZ?  AND  ETC.  * 

T  ~r 

ENTRY 

0186 

4DE8 

CLR 

MC  ZPUT(R14) 

0188 

0310 

018A 

4128 

CLR 

MC  ZGET ( R14) 

018C 

0312 
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0182 

65E0 

SET 

MFLAGS  f R14) ,#TRPMDE  !  RESET  BUF  PTRS 

0190 

03 1C 

!  AND  ENTER  TRANSPARENT  MODE  ! 

!  CONSOLE 

RECEIVE  ROUTINE  ! 

PORTB: 

0192 

61 E0 

LD 

R0,GETOUT(R14) 

0194 

030E 

0196 

4BE0 

CP 

R0 .NITPTR (R14 )  !  CK  FOR  CONS  INPUT 

0196 

030C 

019A 

E60A 

JR 

Z, PORTA  !  NO,  CK  MCZ .  ! 

!  PROCESS 

CONSOLE  INPUT  ! 

019C 

34CA 

LDA 

R10  ,R12 (dGETBUF ) 

019E 

0000* 

01.40 

1FA0 

CALL 

OR10  !  GET  RNG3UF  ADR  ! 

31A2 

6FE0 

LD 

GET0UT(R14) ,R0  !  SET  BEGIN  PTR  ! 

01A4 

030E 

01*6 

2028 

LDB 

RL0.0R2 

01A8 

34CA 

LDA 

R10,R12(#SNDMCZ) 

01AA 

0000* 

01  AC 

1FA0 

CALL 

OR 10  !  ECHO  CHR  TO  MCZ  ! 

01  AS 

EEF1 

JR 

NZ, PORTB  !  CONTINUE  UNTIL  CR  ! 

!  MCZ  RECEIVE  ROUTINE  I 

PORTA: 

01B0 

61E0 

LD 

R0,MCZGET(R14) 

01B2 

0312 

01B4 

4BE0 

CP 

R0,MCZPUT(R14)  !  CK  FOR  MCZ  INPUT 

01B6 

0310 

01B8 

E6EC 

JR 

Z, PORTB  !  NO,  CK  CONSOLS...! 

01BA 

34C  A 

LDA 

R10,R12(#GMCZAD', 

01BC 

0000* 

01BE 

1FA0 

CALL 

OR  10  r  GST  MCZBUF  ADR  ! 

01C0 

6FE0 

LD 

MCZGET ( R14) ,R0 

01C2 

0312 

01C4 

2028 

LDB 

RL0, 0R2  !  GET  CHAR  FROM  MCZBUF  ! 

01C6 

34CA 

LDA 

R10,R12(#SNDCHR) 

01C8 

0000* 

01CA 

1FA0 

CALL 

OR10  !  OUTPUT  CHR  TO  CONSOLE  ! 

01CC 

F8F1 

JR 

PORTA  !  CONTINUE  TIL  EMPTY  ! 

01CS 

END  QUIT 

END  BRK  QUIT  CMD 
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7 


DEBUG  MODULE 


Z8000ASM 
LOC  OBJ 


.02 

CODE  STMT  SOURCE  STATEMENT 

1  DEBUG  CM D  MODULE 
$LISTCN  stty 


* 

# 

♦ 

* 

* 

* 

* 


JUMP  CMD 


GO  CMD: 


NEXT  CMD: 


CHANGES  US  EX  PC  VALUE  AND  * 
BEGINS  PROGRAM  EXECUTION  * 
AT  THAT  POINT  <?C> .  * 

5i» 

BEG  I  Mir  PRC-  ARAM  EXECUTION  * 

AT  TB~  CURRENT  USER  PC.  * 

*& 

Si EPS  THROUGH  PROGRAM  » 
EXECUTION  ONE  INS'”.  AT  A  # 
TIME  OR  IN  MULTIPLES  <N>.  * 


* 

*  SYNTAX: 

JUMP  <PC> 

V 

* 

GO 

* 

NEXT  [<N>] 

■t 

* 

* 

#$#  ##$>*#  j}t  ###!(<  >Jr  >(:$  a*  Jp  if:  St*## 

CONSTANT 

RXR  :  = 

2 

TXR 

0 

PAR  :  = 

7 

P OR TAD 

%FFD9 

P0RT3D 

SFFE1 

PORTAC  := 

%FFDB 

PORTBC  := 

%FFS3 

IDPORT  := 

SFFC3 

ICPORT 

%FFC9 

TCMD 

%FFD2 

TDTA  :  = 

%FFD0 

BUS  LOCK  := 

%FFF9 

BUS~UNLOCK 

:*%F?F8 

VINTR  := 

% ( 2 ) 0001000000000000 

VIBIT 

12 

ESCAPE  := 

%1B 

BS 

%08 
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LINTEL  :=  %? F 

CR  :=  %0D 

LF  :=  *0A 

TXOFCH  :=  %13 

TXONCH  :=  %11 

INSIZ  :=  128  I  INT3UF  SIZE  ! 

OUTSIZ  :=  128  !  OUTBUF  SIZE  ! 

RBSIZ  :=  256  !  RING  BUFFER  SIZE  ! 

!  BIT  POSITIONS  IN  MONITOR  FLAG  WORD  ! 

TRPMDE  :=  0 

ISTOP  :=  1 

OSTOP  :=  2 

SNDMDE  :=  3 

LDMDE  :=  4 

ESC  :=  5 

TXMSK  :=  %6 


INTERNAL 

$SECTION  DATA  DEC 
$ABS  0 


0000 

INTBUF 

ARRAY  | 

[128 

BYTE] 

0080 

OUT3UF 

ARRAY  I 

128 

BYTE! 

0100 

PNGBUF 

ARRAY  1 

.256 

BYTE] 

0200 

MCZBUF 

ARRAY  | 

[256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BEKSTR 

WORD 

0316 

BRKADR 

WORD 

0318 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

031C 

M FLAGS 

WORD 

!  USER  REGISTER  STORAGE  ! 
031E  R0  WORD 
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0320 

SI 

WORD 

0322 

R2 

WORD 

3321 

R3~ 

WORD 

0326 

R4 

WORD 

3326 

R5 

WORD 

032A 

R6“ 

WORD 

032C 

R7~ 

WORD 

032  E 

R8~ 

WORD 

0330 

H9" 

WORD 

0332 

R 10 

WORD 

0334 

an" 

WORD 

0336 

a  12 

WORD 

0338 

R13 

WORD 

033* 

R 14 

WORD 

033C 

P15' 

WORD 

033E 

RPC" 

WORD 

0340 

REC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR_ST 

?.  WORD 

INTERNAL 

$S  2CTI ON 

PSA_DATA 

$A3S  0 

0000 

PSA 

RECORD  [ 

DATA  AREA 

WORD 

CODE“AREA 

WORD 

UNIMP  INST 

LONG 

PR IV  INST 

LONG 

SYSTEM  CALL 

LONG 

SEG  TRAP 

LONG 

NMI  INT 

LONG 

NV I” I  NT 

LONG 

vec"ecw 

WORD 

■ 

VEC~PC 

ARRAY  [200 

1  " 

EXTERN  4L 

GETNXT 

PROCEDURE 

GZTADR 

PROCEDURE 

RGHDB1 

PFOCEDURE 

RGHDR2 

PROCEDURE 

PRREGl 

PROCEDURE 

PRREG2 

PROCEDURE 

EROR 

LAEEL 

EXEC 

PROCEDURE 

$SECTION 

DEBUG_PROC 

$REL  0 
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GLOBAL 

(*000  DE3UG  ENTRY  PROCEDURE 

]***#$#**«#*# $**#***##**#***###*##*(*** 

*  * 

*  DEBUG_ENTRY :  RESTORES  DMONITOR  R12  * 

*  "  AND  R14  (CODE  AND  DATA)* 

*  REGISTERS  FOR  INTERRUPT* 

*  ENTRIES.  * 

*  * 


ENTRY 


0000 

93  FI 

PUSH 

GR15 , R1 

0002 

93FE 

PUSH 

GR15.R14 

0004 

7D15 

LDCTL 

PI , PS  APOFF 

!  GET  PSA  B ASE  ! 

0006 

211E 

LD 

R14.0R1 

!  RESTORE  DATA  BASE  ! 

0008 

6F5C 

LD 

H12_(R14)  ,R12 

!  SAVE  USER  R12  ! 

000A 

0336 

000C 

61 1C 

LD 

R12, CODE_AREA { 

°1)  !  CODE  ?  AS  E  ! 

000E 

0002 

0010 

97F1 

POP 

R1.0R15 

0012 

6FE1 

LD 

R14_ ( R14) , El 

0014 

033A 

0016 

97F1 

POP 

R1.0R15 

0018 

9E06 

RET 

001A  END  DERUG  ENTRY 


GLOBAL 

001 A  SAVREG  PROCEDURE 

}  *#*#*«*###$**  #**#**#**#######>*##*#* 

*  * 

*  SAVREG:  SAVES  USER  PROGRAM  STATUS  * 

*  AND  REGS  1-14  CONTENTS.  * 

*  * 
#*#**#***#*«*  ^J***#*#**#**#:*****  $#*###*:**  I 


ENTRY 

001A 

6FEF 

LD 

TMPSP  (R14  )  ,R15  !  P.TN  ADR  ! 

001C 

0318 

001E 

31F0 

LD 

R 0 , R 1 5 ( #4  )  !  SAVE :  ! 

0020 

0004 

0022 

6FE0 

LD 

RFC_(R14),R0  l  USER  FCV  ! 

0024 

0340 

0026 

31F0 

LD 

R0,R15(#6) 

0028 

0006 

002A 

6FE0 

LD 

RPC_(R14),R0  !  USER  PC  ! 

302C 

033S 

!  SAVE  R1 

-  R14  ! 

002E 

76  EF 

LDA 

R15, Rl_( R14 ) 

0030 

0320 
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3332 

1C79 

LDM 

C-R15.R1  ,#11  !  STORE  REGS  ! 

3334 

3 1 3  A 

3336 

61  E? 

LD 

: 1 5, TMPS? ( El  4)  '  !  BESTOrE  3? 

0038 

0318 

3  33. 4 

6FED 

LD 

R13_( R14) ,R13 

303C 

0338 

003E 

9E33 

RET 

3043 

END  SAVREG 

GLOBAL 

0040 

RESTCR  PROCEDURE 

I  ##*#$*#**«*»# ^ft##****#*###**:#**#**#####*: 

#  'T 


*  RESTOR:  RESTORES  USER  PROGRAM  STATUS* 

*  AND  REGS  2-11 , 13  CONTENTS.  * 

*  A- 


ENTRY 

0040 

6FSF 

LD 

TmPSP(R14).R15 

!  SAVE  STE  PTR  ! 

0042 

0318 

2044 

61EF 

LD 

R15,E15_(?.14) 

!  SET  USER  SP  ! 

0046 

033C 

0048 

61E1 

LD 

HI  ,RFC_'  R14) 

!  RESTORE:  ! 

2 04  A 

2342 

004C 

33F1 

LD 

R15(#2),H1 

!  USER  FCVI  ! 

004E 

0002 

2053 

61E1 

LD 

R1,RPC_(R14) 

2052 

033E 

0054 

33F1 

LD 

R15(  #4 )  ,R1  '■ 

USSR  PC  ! 

2056 

2024 

{RESTORE  F0 

-  al5  ! 

0059 

34EF 

LDA 

R15 ,  R14  ■'  #R3_ ) 

205  A 

231S 

005C 

1CF1 

LDM 

E0  f0E15,#12 

!  RESTORE  PEGS  • 

005E 

0003 

2060 

61ED 

LD 

S13, R13J R14) 

0062 

0338 

0064 

61 EF 

LD 

R15,TMPSP(R14) 

!  RESTORE  SP  ! 

2066 

2313 

0068 

9E06 

EFT 

006A 

END  RESTOR 
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GLOBAL 
GO  LABEL 

006A  JUMP  PROCEDURE 

I  am*##*####)?**:;::**#####*#**#####**#####*** 

*  * 

*  JUMP:  TRANSFERS  PROGRAM  EXECUTION  * 

*  TO  LOCATION  SPECIFIED  IN  CMD .  * 

*  ijt 

*  GO:  BEGIN  EXECUTION  AT  CURRENT  * 

*  USER  PC  VALUE.  * 

*  ¥ 

ENTRY 


006A 

34CA 

LDA 

R10,R12(#GETNXT) 

006C 

0000* 

006E 

1FA0 

CALL 

0R10 

1 

GET 

NEXT  ARG  ! 

0070 

E616 

JR 

Z, SETERR 

I 

NO 

ARGS  ! 

0072 

34CA 

LDA 

R10 ,R12 (#GETADR  5 

0074 

0000* 

0076 

1FA0 

CALL 

0^10 

f 

STM 

JMP  ADR  IN  R3  ! 

0078 

A330 

RES 

R3,#0 

! 

SET 

TO  EVEN  ADR  ! 

007A 

6FE3 

LD 

RPC_(R14 )  ,R3 

!  SET  NEW  PC  VALUE 

007C 

033  E 

IGLOBAL  GO 

CMD  ! 

007E 

61 E3 

GO  :LD 

R3.RPCJR14) 

0080 

033E 

0082 

4BE3 

CP 

R3,BRKADR'R14) 

!  PC  *  BRKADR7  ! 

0084 

0316 

0066 

E665 

JR 

Z.BF.KR0U 

I 

YES 

TAKE  INT.  ! 

0088 

D025 

CALR 

RESTOR 

; 

NO, 

RESTORE  REGS  ! 

008A 

61EF 

LD 

R15,Rl5_ ( R14 ) 

!  RESTORE  SP  ! 

008C 

033C 

008E 

61EC 

LD 

R12,R12_(R14) 

0090 

0336 

0092 

93F1 

PUSH 

0R15.R1 

0094 

61E1 

LD 

R1  ,R14_(R14) 

0096 

033A 

009e 

A11E 

LD 

R14,R1 

009A 

97F1 

POP 

R1  ,3R15 

009C 

7B00 

IRET 

; 

BEGIN 

EXEC  BY  IRET  I 

SETERR: 

009E 

34CA 

LDA 

R10,R12(#EROR) 

00A0 

0000* 

00A2 

1EA8 

J? 

OR  10 

! 

RETURN  TO  EXEC  ! 

00A4 

END  JUMP 
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00A4 


GLOBAL 

BRKIHD  PROCEDURE 

£  •■? 
BFKIHD :  E  r  EA  K  INTERRUPT  HANDLER  * 
WHICH  EXECUTES  SINGLE  USER  * 
INST,  PUTS  3  ACK  BREAK  INST  * 
(UNIMPLEMENTED  INST.),  AND  * 
RESTORES  USER  PC’*.  * 


* 

* 

* 

$ 

* 


# # »t *##>!«)(! as sjr sjcsfcsjt# I 

ENTRY 


00A4 

93F2 

PUSH 

GR15 ,  R2 

00A6 

93F1 

PUSH 

0R15.R1  ! 

SAVE  SYS  REG  1-2 

00A8 

93FE 

PUSH 

0R15.R14 

00  A  A 

7D15 

LDCTL 

FI  ,PS APOFF 

03  AC 

21 1 E 

LD 

R14.0R1  ! 

DATA_AREA  AD"  ! 

20AE 

61S2 

LD 

R2  .3RKADR (R14) 

00B0 

0316 

00B2 

61  El 

LD 

R1 , UN  I M?( ?1 4 ) 

00  34 

0308 

00B6 

2F21 

LD 

0R2.R1  ! 

i 

STORE  UMIM.PJP.14) 
FOP.  3-EAK  SIGNAL 

00B8 

67EC 

BIT 

TMPFCW(R14) ,#VIBIT  ! CK  VI  FN  I 

00BA. 

031 A 

00BC 

EE05 

JR 

NZ, ALTHRU  ! 

YES.  FINISHED  ! 

00BE 

31F2 

LD 

R2  ,R15  \#9  )  ! 

NO .  1 

?ec0 

00«<  8 

00C2 

A32C 

RES 

R2  ,#VI BIT  ! 

..SC  EN  71  ! 

00C4 

33F2 

LD 

R15(*8),R2  ! 

AND  PUT  BACK  ! 

00C6 

0008 

ALTHRU: 

!  RESTORE 

USER  R12  AND  R14  ! 

00C3 

97  FF 

POP 

R14.0R15 

30C  A 

97F1 

POP 

R1 ,GR15 

00CC 

S7F2 

POP 

R2.0R15  ! 

RESTORE  REGS  ! 

00CE 

7B00 

I  RET 

00D0 

END  BRKIHD 
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GLOBAL 

00  DA  SSINT  PROCEDURE 

J  sfrjjt**#*#***:!:*###*#####**!!* as#***#######* 

$  ff 

*  SSINT:  SINGLE  STEP  INT  HANDLER  FCP.  * 

*  USE  WITH  NEXT  CMP .  ALLOWS  * 

*  SINGLE  INST  EXECUTION.  * 

*  * 
ajc a******#*##*#  £*#*#***#:**##*  £#*#*****««#$  j 


ENTRY 


00D0 

D069 

CALR 

DEBUG  ENTRY 

00D2 

6FEF 

LD 

R15JR14)  ,R15 

00D4 

033C 

00D6 

6FE0 

LD 

?.0_(P.14)  ,?0 

00D8 

031E 

CODA 

D061 

CALR 

SAVREG  !  SAVE  ALL  REGS  ! 

00DC 

61 E2 

LD 

R2  ,B  RKADR (R14 ) 

00DS 

0316 

00E0 

61E1 

LD 

R1 , UN  IMP ( 314 ) 

00E2 

0308 

00E4 

2F21 

LD 

0R2.R1  !  RESTORE  UNIMP(R14)  INST 

00E6 

67EC 

BIT 

TMPFCW ( R14 ) , #V I3IT 

00  E6 

031 A 

00EA 

EE02 

JR 

NZ.DWN  !  VI  SN  ! 

00EC 

63FC 

RES 

RFC_(R14) ,*VI3IT 

00EE 

0340 

DWN: 

00F0 

34  C  A 

LDA 

R10,R12( WPRREG1 ) 

00F2 

0000* 

00  F4 

1FA0 

CALL 

0R10  !  OUTPUT  REG  CONTENT! 

00F6 

34  C  A 

LDA 

310, R12 ( WPRREG2) 

00F8 

0000* 

00FA 

1FA0 

CALL 

<?R10 

00FC 

6BE0 

DEC 

3RKCNT (R14) ,#1 

00FE 

030A 

0100 

EE1B 

JR 

NZ  .SINST  !  CONTINUE  SS  1 

0102 

4D05 

LD 

BRKCNT,#1  !  RESET  NEXT  CNT  ! 

0104 

030A 

0106 

0001 

0108 

4DE8 

CLR 

MFLAGS (R14 ) 

010A 

031C 

010C 

7C05 

El 

VI 

010E 

34CA 

LDA 

310, R12 ( #EXEC ) 

0110 

0000* 

0112 

1SA8 

JP 

0R10 

0114 

END  SSINT 
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GLOBAL 

BRKROU 

LABEL 

SINST 

LABEL 

0114 

NEXT 

PROCEDURE 

I 

sjc 

*sjs  Jjt  ## sjs  ## a*  $  *: #  S?  S{t JjC #  sit 

*  NEXT 

:  SINGLE  OR  MULTIPLE  STEPPING  * 

* 

THRU  USER  PROGRAM  WITH  REG  * 

CONTENTS  DISPLAYED  AFTER  EACH  * 

* 

INSTRUCTION  EXECUTION.  * 

# 

* 

^jSs***#*#*###**####*****#**###*###*  j 

ENTRY 

0114 

34  C  A 

LDA 

R10, R12 ( ffGETNXT ) 

0116 

0000* 

0115 

1FA0 

CALL 

3R10  !  SKIP  REST  CMD  ! 

011 A 

E605 

JR 

Z.KA  !  NO  NEXT  COUNT  ! 

011C 

34CA 

LDA 

ri0,ri2;#sstadr; 

011E 

0000* 

0120 

1FA0 

CALL 

OF.  10  !  GET  COUNT  ! 

0122 

PL34 

TEST 

R3 

7124 

EE01 

JR 

NZ.KB  !  COUNT<0  ! 

0126 

ED31 

KA-.LDK 

R3,#l  !  SET  C NT=1  ! 

0128 

6FE3 

KB  :LD 

3RKCNT ( R14 ) ,E3  !  SET  BRKCNT 

012  A 

030A 

012C 

34CA 

LDA 

r.l0,R12(#RSHDBl) 

012S 

0000* 

0130 

1 F  A  0 

CALL 

OR  10  !  DISPLAY  HrR  I 

0132 

34C  A 

LDA 

R10,  ?.12(#?.GHDE2) 

0134 

0000* 

0136 

1FA0 

CALL 

OR  10 

!  SINGLE  INSTRUCTION  EXECUTION  ROUTINE  ! 
SINST: 


0138 

013A 

3402 

EF94 

LDAP. 

F2.SSINT 

!  SETUP  I  NT  HDLR  ! 

013C 

013E 

61E3 

0316 

LD 

R3,3RKADRfRl4) 

0140 

0142 

4BE3 

033E 

CP 

F.3  ,RPC_(  R14 ) 

!  PC=BP KADR ( S14 ) ? 

0144 

EE0D 

JR 

NZ,KC  ! 

NO  CONTINUE _ ! 

0146 

0148 

61 E3 
0316 

LD 

P3,B?KADF(?14) 

^14  A 
014C 

eiEi 

0314 

LD 

R1  .BRKSTR ( R14) 

014E 

2F31 

ld 

0R3.R1  I 

RESTORE  ORIGINAL  INST 

0150 

E807 

JR 

!  BREAK 
BRKROU s 

KC  * 

INTERRUPT  HANDLER 

CONTINUE . ! 

ROUTINE  ENTRY  ! 

0152 

3402 

LDAP. 

R2.3RKIHD 

!  SET  1ST  HDLR  ! 
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3154: 

FF4E 

3156 

61E3 

LD 

R3 .BRKADR '  R14 ) 

0158 

0316 

015A 

6101 

LD 

Rl.BRKSTR  !  PEST ORE  3RK  INST  i 

015C 

0314 

015E 

2F31 

LD 

013,31 

!  EXECUTE 

SINGLE  USER  INST  AND  RETURN  BY  IRS1 

KC: 

0160 

7C01 

DI 

VI 

0162 

7D15 

LDCTL 

R1 .PSAPOFF 

0164 

7613 

LDA 

R3,VEC_PCfRl) 

0166 

001E 

0168 

3332 

LD 

R3  (#12  ) ,  F2  !  SET  INT  HDLR  I’ 

016A 

000C 

016C 

D097 

CAL3 

RESTOR  !  RESTORE  REGS, PC, FC' 

016E 

61 EF 

LD 

R15,R15_ (R14 )  !  RESTORE  SP  ! 

0170 

033C 

0172 

31F1 

LD 

31 ,R15 ( #2 ) 

0174 

0002 

0176 

6FE1 

LD 

TMPFCW (R14) ,R1 

0178 

031.* 

017A 

0501 

OR 

R1 ,#VINTR  !  ENABLE  VI  ! 

017C 

1000 

0175! 

33F1 

LD 

R15( #2 ) ,R1  !  PUT  BACK  ! 

0180 

0002 

!  RESTORE 

!  USER  R12  AND  R14  ! 

0ie2 

61E1 

LD 

R1 ,F1_ ( R14) 

0194 

0320 

0186 

93F1 

PUSH 

0R15.R1 

0188 

61EC 

LD 

312,R12_( 314) 

018A 

0336 

018C 

61E1 

LD 

R1  ,R14_  (R14) 

018E 

0334 

0190 

A11S 

LD 

314.R1 

0192 

97F1 

POP 

R1  ,0315 

0194 

3B16 

OUT 

%FFC0,R1  !  ARM  SINGLE  STEP  ! 

0196 

FFC0 

0198 

A1AA 

LD 

R10.R10 

019* 

7B00 

IPET 

!  RTN  AND  EXECUTE  ONE  INST 

019C 

END  NEXT 

END  DEBUG 

CMD 

0.  SEND  MODULE 


Z8000ASM  2.02 

LOC  C3J  COTE  STMT  SOURCE  STATEMENT 

1  SEND  C VD  MODULI 
SLISTON  STTY 

I  sjojs#  ##***## *«*••*** ««#*#*«* *##*##*« **#*«#**« 

*  SEND  CMD :  SENDS  SPECIFIC  BLOCK  OF  * 


* 

MEM  <BGN  ADRXSND  A  DR  >  TO 

•s. 

*r 

MCZ  TO  STORE  AS  <FNAME> 

'i* 

* 

W/RELOAD  OPT.  ENTRY 

ADR 

<ENT  ADR> .  ALL  HEX 

VALUES 

* 

CONVERTED  TO  ASCII 

FOR 

* 

# 

TRANS.  IN  TEXTRON IX 

FRO  MAT 

packets;  and  up  to 

TEN 

ATTEMPTS  AT  PACKET 

TRANS  . 

* 

sjc 

WILL  BE  MADE. 

❖ 

* 

SYNTAX:  SEND  <BG*1ADR><ENDADR> 

'r 

*  [<ENT  ADR>]* 

#  # 


CONSTANT 


(  INCLUDE 

GLOBAL  CONSTANTS 

EXTERNAL 

FNAME 

PROCEDURE 

BIARG 

LABEL 

GETADR 

PROCEDURE 

SNDMSG 

PROCEDURE 

SKIPLN 

PROCEDURE 

CMDPAS 

PROCEDURE 

C0NV3 

LABEL 

CONVW 

PROCEDURE 

EROR 

LABEL 

GETACK 

PROCEDURE 

OUTLNE 

PROCEDURE 

GLOBAL 

‘SECTION  SEND_PR0C 
SR  EL  0 


125 


0000 


GLOBAL 

S N DP  A C  PROCEDURE 

}  tt*##**#****«*«*****#*>jC*#*****l***#***>)'**# 

*  SNDPAC:  FORMATS  TRANSFER  PACKET  * 


* 

DATA  IN  TEXTRONlX  FROM AT  * 

* 

AND  SENDS  TO  MCZ.  * 

* 

* 

*  REG 

USE:  INPUT  R8  =  3GN  ADR  * 

* 

R9  =  WORD  CNT  * 

RETURN  R8  =  3GN  A DDR  OF  * 

* 

NEXT  AND  Z  IF  LAST* 

* 

*#**###**#**#$******>!'**>!'*************#«*| 

ENTRY 

0000 

8D38 

CLR 

R3 

0002 

C82F 

LD3 

RL0,#'/' 

0004 

6EE8 

LD3 

OUTBUF(R14) , RL0  !  STORE  /  ! 

0006 

0080 

0008 

69E0 

INC 

0UTPTR(R14) ,#1 

000A 

0306 

000C 

8D94 

TEST 

R9 

000E 

9E06 

RET 

Z 

!  CON VERT 

BGN  ADR  TO  ASCII.  ADD  TO  CKSUM  ! 

0010 

A185 

LD 

R5.R8 

0012 

34CA 

LDA 

R10,R12(#CONVW  ) 

0014 

0000* 

0016 

1FA0 

CALL 

OF.10  !  CONVERT  ASCII 

0019 

A195 

LD 

R5.R9 

001  A 

34C  A 

LDA 

R10,R12(#CONV3) 

001C 

0000* 

001S 

1FA0 

CALL 

9R10  !  CONVERT  WORD 

0020 

A0BD 

LDB 

RL5.RL3 

0022 

34CA 

LDA 

R10, R12 (#CON VB  ) 

0024 

0000* 

0026 

1FA0 

CALL 

9R10 

!  FORMAT 

ALL  DATA  ! 

002e 

8D38 

CLR 

R3 

PROCLP : 

002A 

208D 

LDB 

RL5.9R8 

002C 

34CA 

LDA 

R10,R12(#CONVB) 

002E 

0000* 

0030 

1FA0 

CALL 

0R10 

0032 

A980 

INC 

R8,#l 

0034 

AB90 

DEC 

R9 

0036 

EEF9 

JR 

NZ, PROCLP  f  CONT  CONVERSION 

0038 

A0BD 

LDB 

RL5.RL3  I  DONE,  STR  CKSUM 

003A 

34CA 

LDA 

R10,R12(*CONVB) 
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003c 

0000* 

003E 

1FA0 

CALL 

‘AR10  !  CONVERT  CKSUM 

0040 

1F20 

CALL 

*R2 

0042 

8D43 

RESFLG 

Z 

2044 

9E08 

RET 

0C46 

END  SNDPAC 

GLOBAL 

0046 

LASTPC  PROCEDURE 

!  **#  j**c  sc###*:#  a**-. 

*  LASTPC 

:  FORMATS  LAST  ? AC YET  FOE  * 

* 

TRANS  WITH  ENTRf  ADR,  * 

* 

COUNT=0 ,  AND  CKSUM.  * 

*  RFG  USE:  INPUT  R6  =  ENTRY  ADR  * 

* 

❖ 

ENTRY 

0046 

1 165 

LD 

85  ,R6 

0046 

34CA 

LDA 

R10.R12 ' #C0NVW) 

004A 

0000* 

004C 

1FA0 

CALL 

0R10  !  CONVERT  BYTE  ! 

004E 

CD00 

LDB 

-L5,*0 

0050 

34  C  A 

LDA 

R10  ,R12  { fACON  V3  ) 

0052 

0  0P0* 

0054 

1FA0 

CALL 

0P13  !  CONVERT  WORD  ! 

0056 

A0BD 

LDB 

RL5.RL3  !  LOAD  CKSUM  ! 

0058 

34  C  A 

LDA 

R10,R12{#CONV£) 

005A 

0000* 

005C 

1FA0 

CALL 

MR  10 

005E 

1F20 

CALL 

0R2  !  SND  TO. ... ! 

0060 

9E08 

RET 

0062 

END  LASTPC 

GLOBAL 

0062 

ERMSG  PROCEDURE 

|  #  $$****>* j!:*****^#  £ 

*  ERMSG:  SENDS  ASCII  //  MSG  TO  * 

*  MCZ  TO  ABORT  SEND  CMD .  * 

ENTRY 


!  LOAD  BUF  // 


0062 

C02F 

LDB 

RH0 , #  ' 

0064 

C92F 

LDB 

aw,#'/' 

0066 

6FE0 

LD 

OUTBTJF  ( R 14  ) ,  R0 

0068 

0080 

006A 

76ED 

LDA 

R13 ,0UTBUF(R14 ) 

006C 

0080 

006E 

A9D1 

INC 

?.13,#2 

0070 

6FED 

LD 

0UT?TR(R14) tR13 

0072 

0306 
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?.10,R12(#OUTLNE; 


r 


00 74  34 C A  LDA. 

0076  0000* 

0078  1FA0  CALL  «?R10  !  OUTPUT  LINS  -  MCZ  ! 

007A  9E08  FET 

007C  END  ERMSG 


GLOBAL 

007C  SEND  PROCEDURE 

*  if 

*  SEND:  FORMATS  AND  TPANSFEPS  PACS  * 

*  CONTAINING  DATA  FROM  THE  * 

*  SPECIFIED  MEMO? If  AREA  TO  BE  SAVED  * 

*  AS  A  MCZ  FILE.  * 

*  * 


ENTRY 


007C 

34  C  A 

LDA 

R10,R12(#FNAME) 

007E 

0000* 

0080 

1FA0 

CALL 

0r.l0  !  CK  FNAME  ! 

0082 

030B 

C? 

Rll ,#%FFFE  !  CK  FOR  NO  ADR 

0084 

FFFE 

0086 

S60B 

JR 

Z.GOTERP 

0088 

AiBe 

LD 

R8.R11  !  SAVE  BGN  ADP 

008A 

34  C  A 

LDA 

F10, B12 ( #GETADR ) 

008C 

0000* 

008E 

1FA0 

CALL 

0R10 

0090 

S706 

JR 

C, GO TERR  !  ERROR  ! 

0092 

A137 

LD 

R7fR3  !  SAVE  END  ADR 

0094 

34CA 

LDA 

R10.R12 ■ #GETADR) 

0096 

0000* 

0098 

1FA0 

CALL 

GP 10  1  GET  ENT  »DP  ! 

009A 

A136 

LD 

R6.R3 

009C 

8387 

SUB 

R7,R8  !  *  BYTES  ! 

GO TERR: 

009E 

34CA 

LDA 

R10.R12 (#EROR ) 

00A0 

0000* 

00A2 

1EA7 

JP 

C.GR10  !  RTN  EXEC  ! 

00A4 

A970 

INC 

R7  I  BYTE  COUNT  ! 

00  A  6 

65E3 

SET 

MFLAGS ( R14 ) ,#SNDMDE 

00A8 

031C 

!  SIG  SND  MODE  ! 

!  SEND  CMD 

TO  MCZ  TO  LOAD  SEND  PROGRAM  ! 

00AA 

34CA 

LDA 

R10 , R12 (#  CMDPAS ) 

00AC 

0000* 

00AE 

1FA0 

CALL 

OR10  !  SND  CMD  ! 

0020 

9E06 

RET 

Z 

00B2 

34CA 

LDA 

R10,R12 1 #GETACK )  !  GET  ACS  ! 

00B4 

0000* 

0026 

1FA0 

CALL 

0R10 
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00E8 

E603 

JR 

Z,  AC 

P0B  \ 

3402 

LDAE 

E2, CREEP. 

!  SEND  FILS  OPEN  ! 

00BC 

00B0 

00BS 

F833 

JR 

PEM 

!  ERROR  TO  CONS  ! 

00CP 

67E5 

A  C :  B I T 

MFLAGS(?.14)  ,#S 

SC 

30C2 

031C 

30C4 

E607 

JR 

Z.AD 

!  CK  FOR  ESC  KEY  ! 

!SF,ND  f SORT 

TO  CONSOLE  AND 

MCZ  IF  EEC  ES  0  KF 

SNDABT: 

00C6 

D033 

CALR 

ERMSG 

pecs 

3402 

LDAR 

R2, ABTMSG 

!  SND  ABORT  MSG  ! 

00CA 

0086 

00CC 

34CA 

LDA 

R10,R12i#SNDMSG ' 

P0CE 

0000* 

30D0 

1FA0 

CALL 

PR  10 

00P2 

9E08 

RET 

P0D4 

4DF5 

AD  :LD 

RETRY ( R14 ) ,  #13 

00D6 

0342 

00D8 

000A 

00D* 

PB07 

C? 

R7  ,  #30 

00DC 

001E 

00EF 

PF03 

JR 

NC  .COMP  ! 

KBYTES  SND  >  30  ! 

00E0 

»179 

LD 

R9.R7  ! 

#<30,  USE  REST  ! 

00  E2 

8D78 

CLR 

R7  ! 

LAST  PACKET  ! 

00E4 

F804 

JR 

AE 

COMP: 

00F6 

2109 

LD 

R9 ,  #30  ! 

SND  3 3-EYTES  ! 

00S8 

001E 

005* 

0307 

SUB 

R7,#30  ! 

GET  NEW  #RYTES  ! 

00EC 

001 E 

00EE 

A19B 

AE  :LD 

R11.R9  ! 

SAVE  COUNT  l 

!  MAIN  RE 
RESEND: 


00F0 

00F2 

67F5 

031C 

BIT 

00F4 

ESE8 

JR 

00F6 

00F8 

34C2 

0000* 

LDA 

00FA 

D07E 

CALR 

00PC 

E60F 

JR 

00FE 

0100 

34  C  A 
0000* 

LDA 

0102 

1FA0 

CALL 

0104 

0106 

34C  A 
0000* 

LDA 

0108 

1FA0 

CALL 

P.Y  LOOP  FOR  RSSENDImi 

MFLAGS ( R14 ) ,#ESC 

NZ.SNDABT  !  GOT 

R2,R12(#0UTLNE) 

SNDPAC 

Z.LONE  I  SND 

R10,R12(#5KIPLN ) 

OR 10  !  SKI 

R10, R12( *GETACK) 

PR 10  !  WAI 


PACKETS  TO  MCZ  ! 

CK  FOR  USER  AT?CRT  ! 
SND  ABORT...! 

LAST  PACKET  ! 

MCZ  INPUT  ! 

FOR  ACK  ! 


129 


01?  A. 

ES01 

JP. 

NZ.AF  !  REC  NON-ACX  ! 

010C 

E8E3 

JR 

AD  !  REC  ACK  ! 

010E 

E711 

AF :  JR 

C,AG  !  SEC  9  FOR  A30RT  ! 

0110 

83E8 

SUB 

B8  ,  rl  1 

0112 

A1B9 

LD 

R9.R11  !  RESEND  ! 

0114 

6BE0 

DEC 

RETRTU14)  ,#1 

0116 

0342 

0118 

S615 

JR 

Z, SNDSTP  !  SEND  DONE  ! 

011 A 

E8EA 

JR 

RESEND 

!  SEND  LAST 
LONE: 

PACKET  TO  MCZ  ! 

01 1C 

34  C2 

LD  A 

R2,R12(#C0TLNE) 

011S 

0000* 

0120 

D06E 

CALR 

LA ST PC  '  !  PREPARE  LAST  PAC  ! 

0122 

34CA 

LD  A 

R10,R12(*SKIPLN) 

0124 

0000* 

0126 

1FA0 

CALL 

OR  10  !  SKIP  MCZ  ECHO  ! 

0128 

34  C  A 

LD.A 

R10,R12(#GETACK) 

012A 

0000* 

012C 

1FA0 

CALL 

OR 10  l  WAIT  FOR  ACK  ! 

012F 

9F06 

RET 

Z  !  FINISHED...! 

0130 

EF06 

JR 

NC.AZ  !  RESEND . ! 

0132 

3402 

AG:LPAS 

R2.WRTERR 

0134 

0024 

PEM: 

0136 

34CA 

LDA 

R10,R12(#SNDMSG ) 

0138 

0000* 

013A 

1FA0 

C  ALL 

OF.  10  !  SEND  WRITE  ERROR  ! 

013C 

9E08 

RET 

013E 

6BE0 

AZ:DEC 

RETRY (R14 ) ,  #1 

0140 

0342 

0142 

EED6 

JR 

NZ .RESEND  !  TRY  AGAIN  ! 

SNDSTP : 

0144 

D072 

CALR 

ER'ISG 

0146 

3402 

IDAS 

R2.CKMSG 

0148 

0036 

014A 

34C  A 

LDA 

R10,  R12  ( #S  NDt*SG  ) 

014C 

0000s®* 

014E 

1FA0 

CALL 

OR  10  !  SND  CKSUM  ERROR  ! 

0150 

9E08 

RET 

0152 

END  SEND 

130 


0152 

07 

ABTMSG: 
3VA.  L 

H07 

0153 

2F 

B  V  A  L 

'/' 

0154 

4142 

WVAL 

'A£  ' 

0156 

4F52 

WVAL 

'OR' 

0158 

54 

BVAL 

'T  ' 

0159 

0D 

BVAL 

%0D 

£150 

18 

WRTERR : 
BVAL 

S13 

015B 

2F 

EVAL 

'/' 

315C 

4649 

WVAL 

'FI  ' 

015E 

4C45 

WVAL 

'LE' 

0160 

2057 

WVAL 

'  W' 

0162 

5249 

WVAL 

'RI' 

0164 

5445 

WVAL 

'?E' 

0166 

2045 

WVAL 

'  S' 

0168 

5252 

WVAL 

'RR' 

£16A 

4F52 

WVAL 

'OR' 

016C 

0D 

BVAL 

%0d 

316D 

20 

BVAL 

*  t 

OPEK  ?.  s 


016F 

17 

BVAL 

*17 

016F 

2F 

BVAL 

'/' 

0170 

4F50 

WVAL 

'OP' 

0172 

454E 

WVAL 

'EN' 

0174 

2046 

WVAL 

'  r 

0176 

494C 

WVAL 

'IL' 

0178 

4520 

WVAL 

'E  ' 

017A 

4552 

WVAL 

'SR' 

017C 

524F 

W  V  JL 

'HO' 

017E 

52 

BVAL 

'R' 

017F 

0D 

BVAL 

%0E 

CXMSG: 

0180 

12 

BVAL 

*12 

0181 

43 

BVAL 

'O' 

0182 

4B53 

WVAL 

'xs' 

0184 

554D 

WVAL 

'UM' 

0186 

2045 

WVAL 

E ' 

0188 

5252 

W7A.L 

'RR ' 

018A 

4F52 

WVAL 

'OR' 

018C 

0D 

BVAL 

*0E 

01 3D 

20 

BVAL 

*  0 

END  S2ND_CMD 

0  errors 

Assembly  complete 
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APPENDIX  C  -  BCOTLCAD  Program  Listing 


A.  PROM  PROGRAMMING 

The  Bootload  program  listing  contained  in  sections  B  -  ? 
was  programmed  into  the  firmware  by  the  use  of  the  two 
support  programs  i Z3X7ER  and  CPMXFR)  of  Appendix  2  and  the 
following  procedures. 

1.  Bootup  the  SASS  hardware  to  the  monitor  program  by 
the  following  seauence  of  actions: 

RESET 

TYPE  <CR> 

RESET  MCZ  System 

TYPE  <CR> 

DEPRESS  "INTA"  switch  ( NMI ) 

(displays:  LOADING .  ) 

When  prompt  appears  ('*'),  the  monitor  is  loaded 
(approximately  20  sec). 

2.  Bootup  the  INTEL  MDS  System  with  a  CP/M  disk  having 
the  CPMXFR  program. 

3.  On  the  SASS  Developmental  System,  load  the  desired 
hootload  program  into  memory  at  address  6000  ^EX 
by  the  following  command: 

TYPE  "LOAD  <Filename>  6000” 

4.  Load  Z9000  transfer  program  (CPMXFR^  by: 

TYPE  "LOAD  CPMXFR" 
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Setup  to  execute  transfer  crogram  with  the  following 
command  s : 


5 . 

TYPE  "?  RPC  <CSV” 

TYPE  '  A930  <CR>  * 

TYPE  "5000  <CR>" 

6.  Connect  the  cable  between  the  TTY  port  on  the  MD3 
system  and  connector  'A'  on  the  SASS  system, 
(connector  'A'  is  the  MCZ  port  cable  of  MBC) 

7.  Execute  the  CP/M  transfer  program  (CPMXER)  on  the 
MDS  system,  selecting  code  transfer  ('C'). 

8.  On  the  SASS  system,  begin  transfer  by  the  following 
actions  : 

TYPE  "G  <CRh" 

After  the  transfer  is  completed,  the  SASS  monitor  will 
display  the  prompt  ('*'),  and  the  MDS  system  will  provide  an 
indication  that  two  files  (PROM06.OBJ  and  PRCM03 .0EJ )  have 
been  created. 

To  move  the  file  first  to  ISI3-II  and  then  to  the  PROM 
programmer,  the  following  procedures  apply: 

3.  On  the  MDS  system  with  an  ISIS-II  disk  in  drive  B:, 
transfer  the  two  CP/M  files  to  ISIS  as  follows: 

TYPE  'TCI SIS  PROM08  .OBJ  <CR>  ’ 

TYPE  "TOISIS  PROM09.OBJ  <CR>" 
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10.  Reboot  MDS  system  with  ISIS-II  disk  in  drive  A:  and 
and  convert  OBJ  files  to  HEX  files  as  follows: 

TYPE  "OBJHEX  PROMOS. OBJ  TO  PR0M38.HZX  <CR1 ” 

TYPE  "CBJEEX  PROM09.OBJ  TO  ^F.OMOQ.EEX  <CR>" 

11.  Execute  UPM  (Universal  PROM  Programmer)  by: 

PLACE  CLEAN  PROM  IN  PROGRAMMER 
TYPE  "UPM  vCR>" 

TYPE  "READ  FILE  PROMOS .HEX  INTO  0000” 

TYPE  ’PROGRAM  FROM  0001  TO  2018  START  0000' 
PLACE  CLEAN  PROM  IN  PROGRAMMER  (high  byte) 

TYPE  'READ  FILE  ?BOW09.HSX  INTO  3000' 

TYPE  "PROGRAM  PROM  0000  TC  2047  START  2000" 

The  PROM's  are  now  programmed. 
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3CCTL0AD  PROGRAM  LISTING 


1.  300TL0.A  31  MODULE 


E?0v?ASv  2.02 
0 c  03 J  COPE 


STMT  SOURCE  STATEMENT 


1  3C0TL0  ADI  MODULE 
$LISTCM  $TTY 

CONSTANT 


TiXR 

TXR 

PAR 

POP  TAD 
PCRT3D 
POP.TAC 
PORTBC 


2 

0 

7 

%FFD9 

%FFE1 

“FFDB 

%FFS3 


IDPCRT 

ICPORT 


:=  %7FCB 
:=  «FFC9 


ROM  DISABLE  :=  %FFF0 
TCMD  :=  %FFD2 

TDT 4  :=  %FFD0 

BUS  _LOCF  :=?FFF9 
BUS  _UNLC  CE  :=%FFF9 


V  T  mtc 

VIEIT 

ESCAPE 

BS 

LINDEL 

CS 

LF 

TXOFCH 
TXONCH 
INSIZ 
OUTSIZ 
R3SIZ 
BIT  POST 
TRPMDS 
I  STOP 
OSTCP 


%(2  J0001 0000CP700000 
12 


IN  MONITOR  FLAG  WORD 
0 
1 
2 


INT3UF  SIZE  ! 
OUTBUF  SIZE  ! 

RING  BUFFER  SIZE  ! 


SNDMDE  :=  3 

LDMDE  :=  4 

ESC  :=  5 

TXMSK  :=  %6 

COMDS  :=  11 

MAX. CPU  :=  8 


TYPE 

MESSAGE  ARRAY  [3  WORD! 
MEM  ARRAY  ARRAY  [32  WORD! 
SWITCH  .'PRAY  [3  WORD] 
CPU  ENTRY  RECORD  [ 


SIGNAL 
CPU  ID 
MSG_ELK 
MEM 


ID  4 PRAY 
ENTRY  ARRAY 


WORD 

WORD 

MESSAGE 

MEM_AR°AY] 

A CR  4  Y  [MAX  CPU  WORD] 

ARRAY  [MAX'CPU  CPU  ENTRY"1 


3003 

INTERNAL 

AS  ECT ION  T 4  3  LE 1  DATA 
$  APS  0 

CONFIG  TABLE  RECORD 

[ 

RW  PATTERN 

WORD 

CPU  NUM 

WORD 

NORM  RW  PAT 

WORD 

norm'cpu  cnt 

WORD 

TABLE  LOCK 

WORD 

CPU  CNT 

WORD 

CPU  LIST 

ENTRY  ARRAY] 

INTERNAL 

asection  : 

DAT  A_DIC 

AABS  0 

0000 

INTPUF 

ARRAY 

[128 

3YTE1 

0080 

OUT3UF 

ARRAY 

[128 

BYTE] 

3100 

RNGPUF 

ARRAY 

[256 

BYTE] 

0200 

MCZ3UF 

ARRAY 

[256 

BYTE] 

03e0 

BUF  ADR 

WORD 

3302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

3308 

.  UNIMP 

WORD 
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030  A 

ERKCNT 

WORD 

"3  0C 

NXTPTR 

WORD 

030? 

3 STOUT 

WORD 

0310 

VCZPUT 

WORD 

0312 

MCZGST 

WORD 

0314 

BRfTSTR 

WORD 

0316 

B.iKADR 

WORD 

0318 

tppsp 

WORD 

031 A 

TMPECW 

WORD 

031 C 

M FLAGS 

WORD 

!  USE?.  REGISTER  STORAGE  ! 

031 E 

R0 

WORD 

0320 

Rl" 

WORD 

0322 

R2 

WORD 

3324 

R3- 

WORD 

0326 

R4 

WORD 

0323 

P5 

WORD 

032A 

R6 

WORD 

032C 

R7 

WORD 

032E 

F.8 

WORD 

0330 

R9‘ 

WORD 

0332 

R 10 

WORD 

0334 

Rll" 

WORD 

0336 

R12" 

WORD 

0339 

R13 

WORD 

033  A 

P  14 

WORD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

R?C_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR  STR 

WORD 

0346 

CPDTBL 

ARRAY  [12  WORD] 

INTERNAL 

SSECTION  PSA  DATA 

Sabs  0 

0000  PSA  RECORD  [ 


DATA 

AREA 

WORD 

CODE 

APE  A 

WORD 

UNIMP  INST 

SWITCH 

PR  IV 

INST 

SWITCH 

SYSTEM  CALL 

SWITCH 

SEG 

TRAP 

SWITCH 

NM  I~ 

1ST 

SWITCH 

NV  I~ 

INT 

SWITCH 
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VEC  FCW 
VEC~PC 
1  ‘ 

SSECTI ON  EXEC_PROC 
EXTERNAL 

NMI  PROCEDURE 
CONINT  PROCEDURE 
MCZFND  PROCEDURE 
BOOTLO  4D  CPU  PROCEDURE 
ME^_C PU  ‘  LABEL 

GLOBAL  E.RCR  LABEL 
GLOBAL  EXEC  LABEL 
*000  GLOBAL  INITL  PROCEDURE 

i  ***  *  *  m  a****#**#  #  ####  * 

*  DMONITOR  INITIALIZATION  * 


WORD 

A?RAY  [200  ACRE] 


ENTRY 
ORGADP  : 

00<*0  0E00  WVAL  %0E00 

0002  4000  WVAL  %4000 

fl'0e4  0008'  WVAL  START? 

PHYS  ID: 

0006  F1F1  WVAL  'SFIFI 


!  UNIMP  INST  ! 


!  UNIQUE  PHYS  _ I D  ! 


J  tt»X  ###  «# a##****#*##**** *****###*  * 

*  * 

*  INDEPENDENT  PROCESSOR  STAGE  * 

*  * 


!  START  OF  INITIAL  ENTRY  TO  DMONITOR  ! 
STARTP: 

*  * 

*  CLEAR  MEM:  'CLEARS'  MEMORY  BY  WRIT-  * 

*  TNG  R/W  PATTERN  <55AA>  AT  THE  * 

*  BEGINING  OF  EACH  3L0CK  AMD  * 

*  CLEARING  THE  NEXT  THREE  WORD  * 

*  LOCATIONS.  CPU  WILL  WAIT  AT  * 

*  THE  END  FOR  A  PERIOD  OF  TIME  * 

*  (APPROX.  2MSEC).  * 

*  * 

$###«**$*#***#*  V*##*###***##***##**#***]*  1 


0038 

000A 

2104 

F800 

LD 

R4,#%F800 

!  TO?  MEM  BLOCK  ! 

000C 

000E 

2101 
SEA  A 

LD 

R1,#%55AA 

!  R/W  PATTERN  ! 
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3013 

6D28 

CLR 

R2 

0012 

5D43 

R  PS  7LG 

Z 

!  WIN  LOOP 

FOR  CLEARING 

MEMOPY  ! 

CLEAR  MEM.: 

DO" 

0014 

A  1 43 

LD 

R3  ,84 

0016 

A  931 

INC 

R3,#2 

'>018 

2F41 

LD 

0F4 , 0 1 

!  STORE  PATTERN  ! 

001 A 

2105 

LD 

R5.#5 

001C 

0005 

DC 

001E 

2F32 

LD 

GR3.P2 

0020 

A931 

INC 

R3,#2 

0022 

AB50 

DEC 

:  P5 

3024 

E601 

JR 

Z,NXT_ONS 

0026 

E8F3 

OD 

NXT_ONE : 

3028 

0304 

CP 

R4  , *%0000 

!  CK  FOR  LAST  3LK  ! 

002A 

0000 

002C 

E603 

JR 

Z.WAITl 

002E 

0304 

SUB 

R4,#%0800 

0030 

0800 

0032 

F8F0 

OD 

WAITls 

if  if 

*  CPU  WAITS  APPROX.  2MSEC  FOR  ALL 

*  CPU'S  TO  COMPLETE  THE  SAM3  TASK 

*  BEFORE  CONTINUING. 

if  * 

ifiHHHfififififififiHfifiHfififiHfiHHHfiHfififififiHfififififi^ififif  J 


0034 

0036 

2103 

0032 

LD 

DO 

R3,*50 

0038 
003  A 

1904 

0001 

MULT 

P.R4,#1 

003C 

AB30 

DEC 

?3 

003E 

0040 

E601 

F8FB 

JR 

OD 

Z  ,SCRI3E_MZM 
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*  *t 

*  SCRIBE_vtFvl  :  TRAVERSES  THROUGH  MEM  * 

*  3LOCKS  SEARCHING  FCR  R/W  PAT-  * 

*  TERN  INDIC 'TING  ACCESSIBLE  * 

*  MEMORY  (RAM).  CPU  INDICATES  * 

*  ITS  PRESENCE  BY  INCREMENTING  * 

*  STORED  CPU_NUM.  CPU  WAITS  FOR  * 

*  FOR  A  PERIOD  OF  2MSFC  .  * 

*  * 


*  * 
***$***#*##$#  j*######*:*#*###*#***#*####*#  ; 

SCRIBE  MEM: 


0042 

2104 

LD 

R4 , 4XF800 

!  TOP  BLOCK  ADR  ! 

0044 

F800 

!  MAIN  LOOP 

FOR  MEMORY 

SCRIBE  ! 

DO 

0046 

214e 

LD 

RS.0R4 

0043 

8318 

CP 

R8.P.1 

!  CK  FOR  R/W  PATTERN 

004A 

EE09 

JR 

NZ. NOMATCH 

!  NOT  FOUND  ! 

1  CPU  INDICATES  ACCESS 

TO  THIS  BLOCK  1 

004C 

4143 

LD 

F.3 « ?4 

004E 

A  931 

INC 

R3f  #2 

!  GET  CPU  NUM  ADR  ! 

0050 

3B26 

OUT 

BUS  LOCK ,R2  !  MUTUAL  EXCLUSION 

0052 

FFF9 

0054 

2138 

LD 

?.e,(?R3 

!  GET  CPU  NUM  ! 

0056 

A  980 

INC 

R6,#l 

!  INCREMENT  ! 

7  058 

2F38 

LD 

0R3.R8 

!  RESTORE  ! 

005A 

3E26 

OUT 

EUS_UNLOCK 

,R2 

005C 

FFF8 

NOMATCH: 

005E 

eD44 

TEST 

R4 

0060 

E603 

JR 

Z.WAIT2 

!  FOUND  LAST  BLOCK  ! 

0062 

0304 

SUB 

R4,n0800 

0064 

0800 

0066 

E8EF 

or 
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WAIT2: 

f  #  tfaje  ?;<  ifi  ###  $$  *  #  ##  #  5J:#  #  :|? # * *##  $#$$ ##  #*  :J: 

J*  * 

*  CPU  WAITS  APPROX.  2MSEC  FOR  ALL  * 

*  CPU'S  TO  C Ow?LETE  TFE  SAME  TASK  * 

*  BEFORE  CONTINUING .  * 

*  £ 

$  ########  A#'**  | 


^ces 

006A 

2103 

0032 

LD 

DO 

R3 , #50 

006c 

006E 

1904 

0001 

MULT 

RR4 , #1 

0070 

AB30 

DEC 

P.3 

0072 

^074 

E601 

F8FB 

OD 

JR 

2  ,DEFINE_MEM 

*  * 

*  DIFINE_MEM:  CPU  SEARCHES  FOR  LOWEST  * 

*  MEMORY  BLOCK  WITH  HIGHFST  CPU  * 

*  COUNT  (GLOBAL)  AMD  LOWEST  MEM  * 

*  BLOCK  WITH  CPU  NUM=1  (LOCAL).  * 

*  * 


*  RSG  USE 

:  RETURN 

R7 

=  LOW  GLOBAL  * 

P.6 

=  LOW  LOCAL  ^ 

* 

R5 

*  CPU  NUM  (HIGH)* 

* 

V  jjt*  aft#**  Sc*:##**  j*##***##*#*#*#*###*:):#  » 

DEFI MF  MEM: 

<3075 

8D58 

CL? 

R5 

0078 

2104 

LD 

R4 ,*%F8B0 

; 

TOP  BLOCK  ADR  ! 

007A 

F800 

007C 

8 146 

LD 

R6.R4 

j 

LOCAL  START  ! 

007E 

A 147 

LD 

R7.P4 

! 

GLOBAL  START  ! 

DO 

0083 

2149 

LD 

P8.0R4 

00e2 

SB1 9 

CP 

R8  ,  R1 

» 

CK  FOR  F./W  PATTERN 

0094 

EE0C 

JR 

NZ  ,NEXT_ 

BLK 

t 

NOT  ACCESSIBLE  ! 

!  CHECK  FOP 

LOC‘L  OP 

GLOBAL 

» 

0086 

A 142 

LD 

R2  ,R4 

0088 

‘921 

INC 

n2  ,#2 

; 

GET  CPU  NUM  ADR  ! 

008A 

2123 

LD 

R3  ,0P2 

j 

GET  CPU" NUM  l 

008C 

0B03 

CP 

R3  ,#1 

i 

CK  FOR  LOCAL  f 

008F 

0001 

0090 

E605 

JR 

Z , LOC  AL_ 

MEM 

!  RECORD  GLOBAL  MEM 

AND 

UPDATE  CPU  NUM  ! 

1 


0  092 

8B53 

CP 

K3.F.5 

0094 

E704 

JR 

C , NEXT  BLK 

!  R 5  IS  HIGHEST  ! 

0  3  96 

*  135 

LD 

R5.P-3 

!  UPDATE  CPU  C NT  ! 

0098 

A 147 

LD 

R7.R4 

!  UPDATE  GLOEAL  AD?  ! 

009A 

ES01 

JR 

NEXT  BLK 

!  RFCCCD  LOCAL  MEMORY  ! 

LOCAL  MEM: 

009C 

A 146 

LD 

R6  ,R4 

!  UPDATE  LOCAL  ! 

NEXT  BLK 

• 

• 

009E 

8D44 

TEST 

R4 

00A3 

E603 

JR 

Z , SPEC  CASE 

!  FINISHED  ! 

00A2 

0334 

SUB 

r4,n0800 

!  GET  NEXT  BLOCK  ! 

30A4 

0800 

30A6 

E6EC 

OP 

(«##«  3«7 

=  LOW  GLOBAL 

R6  -  LOW  LOCAL  **** ! 

! 

R5  =  CPU  COUNT  ! 

SPSC_C ASE: 

f##**  J()R 

SINGLE  PROCESSOR  MONOBOARD  CASE  ***! 

00  A  8 

2107 

LD 

R7 , #*F800 

00AA 

F900 

00  AC 

EE04 

JR 

NZ, STACK  INT 

00  A  E 

2107 

LD 

F.7  ,#%8000 

0030 

8000 

0032 

2105 

LD 

R5,#l 

00E4 

0001 

STACK  INT: 


I  ft*****####*#*  j*#**#*####**** #**«****#*#«* 
# 

*  LOCAL  INITIALIZATION  STAGS 

* 

*  INITIALIZATION  OF  INTERNAL  CPU 

*  SPECIAL  PURPOSE  REGISTERS 

*  .AND  CPU  DATA  STRUCTURES  . 

* 


# 

* 

* 

* 

* 


!  I*#*#**:##**:#**###*****##**####*##***##**# 

*  LOAD  PROGRAM  STATUS  AREA  POINTER  * 

jit#####:* ift**##* *#*###*;■«##>;:* Vt*## #**#*#**#**  J 

00B6  A 1 6 1  LD  R1  ,?6 

03B8  0131  ADD  Rl,n0100  !  SET  PSA  ! 

30BA  0133 
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eenc 

7D1D 

LDCTL 

PSAPCFF.Rl 

!  LOAD  PSAP  ! 

!  R6  CONT 

AIMS  LOW  MEMCRY 

AREA  FOR  DMONITOR 

00BE 

A  164 

LD 

R4  ,.P  6 

00C? 

0104 

A  DD 

:-:4,#‘?02P0 

00C2 

0230 

00C4 

A14E 

LD 

R14.R4  ! 

DATA  AREA  ! 

0006 

340C 

LDAP. 

P12.ORG  A  DP. 

!  SET  CCDS  ADP.  ! 

00CS 

FF36 

!  ****  R12=CCDE  ADI  R14=DAT A  AREA  ****  ! 
**  SET  STACK  POINTED  * 

$ »X*5e ##:$!# # a{e >!* sfr ricaje 9fesJts^'>!ss^9j«jSts)ts}c3Ces^5jea4c>{tj{t»!«5(t34E ##£$ #  I 


00CA 

A 161 

LD 

P1.R6 

!  SET  UP 

STACK  PTP  ! 

00CC 

3101 

ADD 

R1 ,#%00F0 

00CE 

33F0 

00D0 

A 11F 

LD 

R15.P1  ! 

SET  SYSTEM 

STACK  POINTER  ! 

1  **  INITIALIZE  refresh  cntr  REGISTER  **  ! 


O0T2  2101 
20D4  9E00 
00D6  7D13 


LD  Rl,nSE00  !  LI-  RATE  VALUE  ! 

LDCTL  REFRESH. R1 


J  *##:S*}:»c>£!ici(ci(t#:$e*s##*iOi  He######:*  ##>*#>!! *#### if:**## 

*  SFTW  IK  IT:  INITIALIZES  ALL  BASIC  * 

*  “  DATA  STRUCTURES  FOR  TEE  * 

*  SINGLE  PROCESSOR.  * 

<s  # 

##****#**##*##* fc########**#*#**##*****:*#  t 


!  CLEAR  DMONITOR  RAM  AREA  ! 


00DS 

A 162 

LD 

R2.R6  !  CLR  DMONITOR  PAM  ! 

00  DA 

a  121 

LD 

SI. 82 

00DC 

A  911 

INC 

ai,#2 

30DE 

2103 

LD 

R3  ,#%250 

?  0E0 

0250 

00E2 

0D65 

LD 

0?6,#0 

00E4 

0000 

00E6 

BB21 

LDIr. 

OR1.0R2.R3 

30E8 

0310 

!  INITIALIZE  BLANK  BUFFERS  ! 

P0EA 

34F2 

LD  A 

K2,R14(*INTBUF)  !  FILL  CONS 

00EC 

0000 

00EE 

34E1 

LDA 

R1,R14(#INTBUF)  !  WITH  SPACES 
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0GF0 

0000 

PC  F2 

<911 

I  NC 

Rl.#2 

00F4 

2103 

LD 

P.  3  ,*INSIZ 

P0F6 

0080 

P0F8 

PD25 

LD 

0R2,*'  ' 

00FA 

2020 

00FC 

BB21 

LDIR 

0R1.9R2.R3 

00FF 

0310 

!  LD  FIXED 

DATA  IN  RAM  ! 

0100 

3457 

LDA 

R7 ,R14 (#1 NT3UF ) 

0102 

0000 

0104 

3357 

LD 

?14(*INTPTR) ,P7 

0106 

0304 

0108 

3457 

LDA 

R7 ,R14( 40UTBUF ) 

?10A 

0080 

010C 

33E7 

LD 

R14  ( #OUTPTR ) , R7 

0101 

0306 

*  INITIALIZE  PROGRAM  STATUS  AREA 

0110 

7E25 

LDCTL 

R2, PSAPOFF 

0112 

2101 

LD 

R1 ,#%4000 

0114 

4000 

0116 

ar48 

CLR 

R4 

0118 

3423 

LDA 

R3,R2(#UNIMP_INST) 

01 1A 

0004 

DO 

011C 

7331 

LD 

R3 ( ?4 ) , Rl 

011E 

0400 

0120 

A  943 

INC 

R4,#4 

0122 

0B04 

CP 

R4,#28 

0124 

001C 

0126 

5601 

JR 

Z , LD_PC 

0128 

58F9 

OD 

LD_PC : 

012A 

3423 

LDA 

R3,P.2(#NMI_INT)  !  LOAD 

NMI 

012C 

001C 

012E 

76C4 

LDA 

R4 , NMI (R12 ) 

0130 

0000* 

0132 

3334 

LD 

?.3{#2),F.4 

0134 

0002 

; 

SET  INTERRUPT  HANDLERS  ! 

0136 

3423 

LDA 

R3 ,R2 ( #VEC_PC )  !  BASE  OF 

INT 

0138 

002A 
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"3 


n3A 

76C2 

l:a 

?2,C0NINTf P12)  ICONS  INPUT! 

013C 

0000* 

0 13E 

3332 

T  T> 

P.3'.  #0 )  ,R2 

"14P 

0000 

!  MCZ  INPUT  ! 

0142 

76C2 

LDA 

R2 , MC  ZFN  E ' R12 ) 

0144 

0oeo* 

0146 

3332 

LD 

P3(#4),?.2 

0149 

0004 

'#  * 


HDW  INIT ■ 


INITIALIZES  HARDWARE  IC 
TO  A  KNOWN  STATE  WITH  ALL 
NECESSARY  INPUT_OUT?UT 
FUNCTIONS.  INADDITION , 
SYSTEM  TIMER  FUNCTIONS 
INTERRUPT  STRUCTURE  IS 
TO  A  KNOWN  STATE. 


$ 
* 
♦ 

* 

* 
* 

* 


THE 

AND 

SET 


* 

* 

* 


HDW  INIT: 

!  **  INITIALIZE  USA7.TS  9551  **  ! 


0 14A 

2101 

LD 

HI  ,#%00CE 

* 

SET  MODE  ! 

014C 

O0CE 

014F 

3A96 

OUTB 

POP.TBC ,  RL1 

0150 

FFE3 

0152 

3  A96 

OUTB 

PORTAC , RL1 

0154 

FFDB 

0156 

2101 

LD 

HI  ,#%0027 

j 

TX,  PX,  RTS,  DTP. 

0158 

0027 

315A 

3  A  96 

OUTB 

PORTBC , RL1 

015C 

FFS3 

015E 

3  L  96 

OUTB 

PORTAC, RL1 

0160 

FFDB 

!  **  INIT. 

INTERRUPT  CON 

TRCLLSP.  8259A  **  ! 

0162 

2101 

LD 

PI ,#%0013 

! 

LOAD  ICW1  ! 

3164 

0013 

0166 

3A96 

OUTB 

ICPORT  ,RL1 

0166 

FFC9 

31 6  A 

2101 

LD 

R1  ,#%03Q3 

I 

LOAD  ICW2  ! 

016C 

0000 

016E 

3A96 

OUTB 

IDP0RT.PL1 
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7!  1721  FFCE 


0172 

2101 

le 

R1 ,#^0003 

!  LCAD  ICW4  ! 

*174 

0003 

0176 

3  A96 

OUTB 

IDPORT, ?L1 

0179 

FFC3 

!  **  INITIALIZE  TIMING  CONTROLLER  9513  **  ! 

017A 

2101 

LD 

R1 ,#%FFFF 

!  RESET  DEVICE  ! 

017C 

FFFF 

017S 

3B16 

OUT 

TCMD,  R1 

0180 

FFD2 

0182 

2101 

LD 

D1,#<SFFEF 

!  SET  16-BIT  MODE  ! 

0184 

FFFF 

0186 

3B16 

OUT 

TCMT.Rl 

0188 

FED  2 

018A 

2101 

LD 

R1 ,#%FF5F 

!  LOAD  ALL  REGS  ! 

019C 

FF5F 

018E 

3B16 

CUT 

TCMD.Rl 

0193 

FFD2 

0192 

2101 

LD 

R1 .#%FFE8 

!  DISABLE  AUTC  SEO  ! 

0194 

FFF8 

0196 

3E16 

OUT 

TCMD.Rl 

0198 

FFD2 

!  SYSTEM 

32-BIT  CONTINUOUS  CLOCK  ! 

019A 

2101 

LD 

R1 ,#%FF01 

!  LD  'CM'  CNTR  GRP1 

019C 

FF01 

019E 

3B16 

OUT 

TCMD.Rl 

01A0 

FFD2 

01A2 

2101 

LD 

HI ,#%0C29 

!  CNTR  MODS  VALUE  ! 

01A4 

0C29 

01A6 

3B16 

OUT 

TDTA.Rl 

01 A8 

FFD0 

01 AA 

2101 

LD 

R1,#%FF02 

!  LD  'CM'  CNTR  SRP2 

01AC 

FF02 

01AE 

3B16 

OUT 

TCMD.Rl 

0130 

FFD2 

01B2 

2101 

LD 

FI ,#%0029 

!  CNTR  MODE  VALUE  ! 

0134 

0029 

0136 

3B16 

OUT 

TDTA.Rl 

31ES 

FFD0 

!  QUANTUM 

COUNT-DOWN  TIMER  ! 

01BA 

2101 

LD 

R1  ,^FF05 

!  LD  'CM'  CNTR  GF.P5 
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OUT 


yiBC  FF05 
013F  3316 
?1C0  FFD2 


TC^D.Rl 


01C2 

01C4 

2101 

0C02 

L3 

?.l  ,#%3C02 

,  CNTp  m0De  VALUE  ! 

01C6 

-nee 

3*16 

FFD0 

OUT 

TDTA ,R1 

01 CA 
^1CC 

2101 

FFCD 

LC 

R1  ,#%FF0D 

!  LD  'LOAD '  C-RP5  ! 

?1CE 

01D9 

3516 

FF32 

OUT 

TCMD.Rl 

■?1D2 

01D4 

2101 

0005 

L3 

R1 .  $*0005 

!  LD  VALUE  ! 

01D6 

0138 

3516 

FFD0 

OUT 

!  HARDWARE 

TDTA.Rl 

PRE-EMPT  MSCH 

AN  ISM  ! 

01  DA. 
01DC 

2101 

FF04 

LD 

^1  ,#*FF04 

!  LOAD  'CM'  DP?4  ! 

01DE 
01 50 

3E16 

FF32 

OUT 

TCMD.Rl 

01E2 

01E4 

2101 

0C02 

LD 

R1  .«^0C02 

!  LOAD  CM  ! 

01E6 

f’lES 

3316 

FF30 

OUT 

TDTA.Rl 

01  FA 
01  EC 

2101 

FF0C 

LD 

PI  ,#%FF0C 

!  LO»D  'LOAD'  3P.P4  ! 

FIFE 

01F0 

3516 

FFD2 

OUT 

tcmd.ri 

ei?2 

01F4 

2101 

0005 

LD 

R1  ,#%0005 

!  LOAD  REG  ! 

01F6 
01 F8 

3B16 

FF30 

OUT 

TDTA,  PI 

FIFA. 

01FC 

2101 

FF43 

LD 

ftl  ,*%FF43 

!  LD  SEN  CNTR  1RP1S2 

FIFE 

?200 

3316 

FFD2 

OUT 

TCVD ,R1 

0202 

0204 

2101 

FF23 

LD 

R1  ,#%FF?3 

!  ‘PM  REAL  TIME  CLK  ! 

0206 

0208 

3316 

FFD2 

OUT 

TCMD.Rl 

020A 

7C05 

SI 

VI 
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#  ❖ 

COORPERATING  PROCESSOR  STAGE  * 

PROPER  * 


* 

$ 

* 


TEST  LOCK:  ROUTINE  TO  GAIN  ACCESS 
"TO  COMF1 G  TABLE. 


* 
* 

REG  USE:  INPUT  R7  =  LOW  GLOBAL  MEM  * 

* 


TEST  LOCK: 


920C 

7678 

LDA 

R6, TABLE  LOCK ( P7 )  !  LOCK  ADR  ! 

020S 

0008 

!  MAIN  LOCK 

TESTING  LOOP  ! 

DO 

0210 

3B26 

CUT 

BUS_LOCK ,R2  ! 

LOCK  SYSTEM  BUS  ! 

0212 

FFF9 

0214 

0D86 

'’’SET 

0RS  ! 

TEST  TABLE  LOCK  ! 

0216 

3B26 

OUT 

3US_UNL0CK,R2  ! 

UNLOCK  SYSTEM  EUS  ! 

*218 

FFF8 

021A 

ED03 

JR 

PL ,TBL_ACCESS  ! 

GOT  EXCLU.  ACCESS  ! 

!  DELAY  3EFCRE  NEXT  ATTEMPT 

TO  REDUCE  1 

!  CYCLE  STEALING  ON  3US  FROM  BOOTLOAD  CPU  ! 

021  C 

1904 

MULT 

RR4,#1 

021S 

0001 

9220 

ygyr? 

OD 

#  :* 

*  TPL  ACCESS:  ROUTINE  TO  DETERMINE  * 

*  “BOOTLOAD  CPU  AND  MEMBER  CPU'S.  * 

*  * 

TBL  ACCESS: 


0222 

7673 

LDA 

R3,CPU_CNT(R7) 

!  TABLE 

0224 

000  A 

0226 

2134 

LD 

R4.0P.3  ! 

GET  LOG 

0228 

0B04 

CP 

R4  ,#0  ! 

IS  CPU 

022  A 

0000 

022C 

E6*3 

JR 

Z , GO  300TCPU  ! 

YES  ! 

022E 

76C1 

LDA 

R1  ,MEM_CPU(R12) 

0230 

0000* 

0232 

me 

JP 

0R1 

GO  BOOTCPU : 

0234 

76C1 

"LDA 

?.l  ,BOOTLOAD_CPU( 

?.  12 ) 

0236 

0000* 
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323 3  1116 


J? 


Q23A 


yp.i 


END  INITL 
END  BC0TL04D1 


1  19 


t~*  t  -i 


2.  *OOTLOAT2  MOTULE 


2.22 

OC  OBJ  COD’?  STMT  SOURCE  STATEMENT 

1  BGPTLO AD2  MODULE 
CUSTOM  $TTY 

CONSTANT 

RXR  :=  2 

TXR  :=  P 

PAR  :=  7 

PORTAE  :=  %FED9 

POP'T’BD  :=  I?FEE1 

PORTAC  :=  %FFDE 

PORTBC  %FFE3 

IDPOF.T  :=  %FFCB 

ICPCRT  :=  SFFC9 

ROM  DISABLE  :=  £EFE0 
TCMD  :=  “?FFD2 

TDT A  :=  %FFD0 

BUS  LOCK  :=%FFF9 
BUS "UNLOCK  :=%F?F8 
7 1 NTR  :=  % ( 2 ) 3001000000000000 

VISIT  :=  12 

ESCAPE  :=  %13 

ES  :=  %0e 

LINTEL  :=  %7F 

CP  :=  %0D 

LF  :=  %0 A 

TXOFCH  :=  %13 

TXONCH  :=-  %11 

I  NS  I Z  :=  128  INTBUF  SIZ 

OUTSIZ  :=  12S  !  CUT3UF  SIZ 

R3SIZ  :=  256  !  RING  BUFFER  SIZE 

!  BIT  POSITIONS  IN  MONITOR  FLAG  WORD  » 

TRPMEE  :=  0 

I  STOP  :=  1 

OSTOP  :=  2 

SNEMDE  :=  3 

LDMDE  :=  4 

ESC  :=  5 

TXMSK  :=  %6 

MAX  CPU  :=  8 
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\4  **1 


TY?I 

*M?SSAGE  ARRAY [3  WORD] 

MEM  ARRAY  ARRAY [32  WORD] 

SWITCH  ARRAY  [2  WORD1 
CPU  ENTRY  RECORD  [ 

SIGNAL  WORD 

CPU  ID  WORD 

MSG~BLK  MESSAGE 

("’EM  MAP  MFM_»R?AY] 

ID  ARRAY  ARRAY  [MAX_CPU  WORD] 

ENTRY_ ARRAY  ARRAY [MAX_C?U  CPU_SNTRYl 

INTERN »L 

$S ECT I CN  TAELS1  DATA 

$AES  3 

3330  CONFIG  TABLE  RECORD  [ 

RW.PATTERN  WORD 

CPU  NUM  WORD 

NORM  PW  PAT  WORD 

NORM- CPU  CNT  WORD 

TABLE  LOCK  WORD 

CPU  CNT  WORD 

CPU'LIST  ENTRY  ARRAY] 


INTERN  »L 

$S ECTI CN  DATA  DEC 
$A*S  0 


0000 

INTBUF 

srr»Y 

[128  BYTE! 

0060 

OUTPUF 

ARRAY 

[128 

BYTE! 

3100 

RNG3UE 

ARRAY 

[256 

BYTE] 

0200 

MCZBUF 

ARRAY 

[256 

BYTE] 

3300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0336 

OUTPTR 

WORD 

0306 

NXTPTR 

'WORD 

030  A 

GETOUT 

WORD 

330C 

MCZPUT 

WORD 

Z30E 

MCZGET 

WORD 

0313 

MFL»GS 

WORD 

3312 

RETRY 

WORD 

0314 

ADR  STR 

WORD 
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l  ; 

r 

INTFPN  'L 

1 

$SECTI ON  PSA  DATA 

$ARS  0 

n???  PSA  =E 

COFD  f 

DATA  AREA 

WORD 

CODE  AREA 

WORD 

UN  IMP  INST 

SWITCH 

PR  17  INST 

SWITCH 

SYSTEM  CALL 

SWITCH 

SEG  TRAP 

SWITCH 

, 

NMl'lNT 

SWITCH 

J 

NVl"  I  NT 

SWITCH 

j 

7EC  FCW 

WORD 

.  i 

i 

V  EC~PC 
]  “ 

ARRAY  [200  WORD! 

i 

i 

^SECTION  B00T2  PF.OC 

< 

EXTERNAL 

NMI 

PROCEDURE 

GETLNS 

PROCEDURE 

i 

! 

SNDCHR 

PROCEDURE 

i 

SNEMSG 

PROCEDURE 

MCZHND 

PROCEDURE 

CONINT 

PROCEDURE 

GET PDF 

PROCEDURE 

CUIT 

PROCEDURE 

LOAD  FILE  PROCEDURE 

i 

j 

i 

PHYS_ID 

LABEL 

k 

■ 

r 

» 

f: 

K 

£ 

M 

^  i 

i 

1 

i 

! 

152 

I 

jjtafc  ### 

BCOTLOAD_C?TJ  START  ***** 

f 

GLOEAL 

NM I  RTN 

LABEL 

PROP 

L J  BEL 

ME 

M  CPU 

LA  EEL 

0000 

BCCTLCAr 

CPU  PROCEDURE 

1  a;:######  a*##**##*##  *#*#**##########>***###!(: 

* 

3C0TL0A D  CPU:  CPU  ASSUMES  ROLE  AS 

* 

* 

INITIALIZATION  COORDINATOR. 

* 

CPU  DETERMINES  NUMBER  OP  CPU 

* 

# 

IN  SYSTEM  AND  INITIALIZES  THE 

* 

a* 

CONFIG  TABLE  ACCORDINGLY.  IT 

* 

*!« 

THEN  IDENTIFIES  ITSELF  AND 

# 

WAITS  FOR  MEMBER  CPU'S  TO 

IDENTIFY  THEMSELVES?  »ND  THEN 

* 

CONSOLIDATES  CONFIG  TABLE  DATA 

* 

$ 

INTO  SYSTEM  TABLE  MIN  CONFIG 

* 

TPL ) . 

* 

$ 

V 

REG 

USE:  INPUT  H5  =  NUMBER  CPU'S 

* 

* 

R6  =  LOW  LOC»L  MEM 

* 

«b 

R7  =  LOW  GLOEAL  MEM 

V 

a*#«a*#**##$**aO<a:(:CcaGc#a*x<a*a^*ca!'*4'aic$apit:a:ca{'*a*##«a*a*a*  I 

ENTRY 

! 

LOAD  CPU  CNT  WITH  NEXT  LOG  CPU  NUMBER 

I 

3003 

4D75 

LD 

CPU_CNT(R?) ,*1  !  LOAD  LOG 

_CPU 

3002 

0  00  A 

0034 

0001 

0036 

4DS5 

LD 

ADR_STR(R14) ,«0  !  SAVE  LOG 

_c?u 

0008 

0314 

000A 

0000 

j 

CLEAR 

CONFIG  TA3LE  FOP.  CPU  NUM  ENTRIES 

f 

000C 

A153 

LD 

R3.R5  !  GST  CPU  COUNT  ! 

000E 

8D28 

CLR 

R2 

DO 

0010 

0102 

ADD  R2.637  f  SIZE  OP  CPU  ENTRY 

1 

0012 

0025 

0014 

*  B33 

DEC  R3 

3016 

E601 

JE 

Z ,  NXT 

0018 

E8F3 

OD 

; 

CLEAR 

CONFIG  TABLE  FOR  TOTAL  CPU  ENTPIES  ! 

NXT: 

301A 

7673 

LDA 

R3,CPU_LIS?(R7)  !  BASE  ADR 

! 

301C 

000C 

001 E 

0D35 

LD 

9?3,«0 

0020 

0000 

153 


2022 

A134 

LB 

R4.R3 

•'’024 

A941 

IMC 

P4,#2 

0026 

PB31 

LDIH 

GR4.GR3.R2 

!  CLEAR  TABLE  ! 

0028 

0240 

!  COMPLETE 

OWN  CONFIG  TABLE  ENTRY  ! 

002A 

7673 

LDA 

R3.CPU  LIST(R7)  !  LOG  CPU  0  ! 

002C 

003C 

0025 

61C9 

LD 

R8.PHYS  ID(R12)  !  UNIQUE  ID  ! 

0030 

0003* 

0032 

6P38 

LD 

CPU  ID(R3 )  ,R8  !  ENTER  IN  TAPLE  ! 

e034 

0002 

0036 

763D 

LDA 

r13,MEM_MAP( 

R3 ) 

0038 

000A 

003  A 

BF1C 

CALR 

M»?_MEMORY 

!  ENTER  MEM  MAP  ! 

r  UNLOCK  CONFIG  TABLE  ! 

?03C 

76^8 

LRA 

RS, TABLE  LOCK ( R7 )  !  LOCK  ADR  ! 

003E 

0008 

0040 

0D85 

LD 

GR8.W0 

!  CLEAR  LOCK  ! 

0042 

0000 

!  WAIT  FOB 

ALL  CPU'S  TO 

IDENTIFY  THEMSELVES  ! 

3044 

7678 

LDA 

R8 , CPU  CNT(R? )  !  CPU  CNT  ADR  ! 

0046 

000A 

0048 

A 159 

LD 

R9.R5  ! 

GET  TOTAL  ?HYS_CPU  ! 

DO 

004A 

218D 

LD 

R13.9R8 

!  GET  VALUE  ! 

004C 

8B9D 

CP 

R13.R9 

!  CK  FOR  MATCH  ! 

0043 

3603 

JR 

Z.GOT  SIG 

3050 

1904 

MULT 

RR4,#I 

f  DELAY  ! 

3052 

0001 

0054 

28  FA 

OD 

GOT  SIG: 

0056 

BF53 

CALP. 

SIGNAL  CPU 

0058 

E82A 

JR 

DECISION 

!  PROCEDE  TO  SECONDARY  ! 

!  STORAGE  INTERFACING  ! 

I 
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i  *****  MEVBEP._CPU  START  *****  ! 

! **************************************** 
*  * 

*  MF.M_C?U  :  I  ESN  T I  FI  ES  ITSELF  IN 
CONFIG_?*BLE  AND  ENTERS  MEM 
ma?.  WAITS  FOR  DIRECTOR  CPU- 
TO  SIGNAL  TC  CONTINUE . 


* 

* 

# 

* 

* 

* 

* 


EEG  US?:  INPUT 


F.3  =  BASE  OF  OWN 
ENTRY 


****************************************  j 

MEM  CPU: 


005* 

7673 

ID* 

E3.C?U_ 

LIST( R7) 

!  BASE  OF  ENTRY  ! 

00  SC 

200C 

00  5E 

6174 

le 

R4  ,CPU_ 

CNT(  R7 ) 

!  LCG_CPU  NUMBER  ! 

006? 

a 

2062 

6FE4 

LD 

AD?  ST*fF.14)  .34 

!  3  *7E  LOG_  CPU  NO 

0064 

0314 

0066 

8D29 

CLR 

R2 

DO 

2068 

0102 

ADD 

R2,#74 

i 

DETERMINE  BASE  OF  ! 

006* 

004* 

006C 

AE40 

DEC 

P4 

1 

ENTRY  ! 

006E 

E601 

JR 

Z , CONT 

007? 

E8FB 

OD 

CONT: 

2072 

ei2A 

ADD 

R10.R2 

!  COMPUTE  3ASE  ADR  ! 

0074 

*  1A3 

LD 

P3.R10 

!  SAVE  BASE  AD?  ! 

f 

ENTER  UNIQUE  ID  IN  TABLE 

ENTRY  ! 

0076 

76C2 

LDA 

R2.PHYS 

_ID( R12 ) 

207S 

0000* 

007A 

2129 

LD 

R8 ,0R2 

! 

GET  UNIQUE  ID  ! 

007C 

6738 

LD 

CPU  ID(R3),R8  ! 

ENTER  IN  TABLE  ! 

007E 

0002 

I 

ENTER  MEM 

MAP  IN 

TABLE  ENTRY  I 

*080 

763D 

LDA 

“P13.MEM 

!_MAP(R3) 

!  MEM_MAP  BASE  ! 

0062 

000  A 

2094 

EF41 

CALR 

MAP_MEMORY 

; 

LOAD  CPU 

CNT  WITH 

:  NEXT  LOG  CPU  NUMBER  ! 

0066 

7678 

LDA 

R8,CPU_ 

CNT(R7) 

00e8 

000A 

ees* 

2189 

LD 

R9.9R8 

! 

CPU  COUNT  ! 

006C 

A  990 

INC 

?9 

! 

ADD  ONE,  ! 

008E 

2F89 

LD 

0R9.R9 

! 

AND  PUT  BACK  f 

!  UNLOCK  CON?  TABLE  FOP. 

OTHER  PROCESSORS  ! 

0090 

7679 

LDA  98 .TABLE  LOCK (37) 

"092 

0009 

0094 

0D65 

LD  0?8,*0 

!  CLEAR  LOCK  ! 

0096 

0000 

!  WAIT  FOR  SIGNAL  TO  PR 

OCFED  WITH  BOOTLOAD 

0096 

7636 

LDA  98  .SIGNALERS)  OWN  SIGNAL  ADR 

S09A 

0000 

DO 

009C 

2182 

LD  “2.GR8 

f  TEST  SIGNAL  ' 

309E 

0302 

C?  92.  #1 

00  "0 

0001 

00  A2 

3603 

JR  Z, RESET  SIG 

00A4 

1904 

MULT  RR4 , # 1 

!  DELAY  ! 

004  6 

0001 

30  A8 

P8?9 

OD 

RESET  SIG: 

(70  4  4 

4D38 

CLR  SIGN  ». L  ( R3  ) 

00AC 

0000 

1  ****#«####*##  S#####**#**^##*****!*#**:#*!!!* 

*  BOOTSTRAP  LOADING  FUCTION  * 

* 

* 

*  TEIS  SECTION  CONTAINS  NECESSARY  * 

*  SECONDARY  STORAGE 

INTERFACING  * 

*  PRIMITIVES  TO  EFFECT  A  DOWNLOAD.  * 

* 

*##:**$**#*****#***#:* ********************  ! 

1  *■-* #######*##** St*####*#:***## 

’*  BOOTLOAD-MONITOR  DECISION  POINT  * 

DECISION : 

30AE 

C82A 

LDB 

RL0,#'*'  !  PROMPT  MIN  MBC  ! 

!  INITIALIZATION  ! 

00B0 

76C  A 

LDA 

R10.SNDCHR ( R12 ) 

30B2 

0000* 

0034 

1FA0 

CALL 

GR10  !  OUTPUT  PROMPT  ! 

!  SET  RI NGBUF7ER  OFFSET  POINTERS  ! 

00B6 

4DF8 

CLR 

GST0UT(R14) 

0036 

030A 

00BA 

4DE8 

CLR 

NXTPTR( R14) 

00BC 

0308 
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30BE  ?C05 


El  VI 

!  GLOBAL  TABLE  FOR  CPU  SYNCHRONIZATION »  LOG  CPU  ! 
!  NUMB EE  DETERMINES  30CT  COORDINATOR  IN  GENERAL 
!  CASE,  BUT  NOT  USED  WITH  MCZ  IMPLEMENTATION .  ! 

!  MAIN  LOOP  TOR  BOOT  COORD  DETERMINATION  ! 

DO 


!  CHECK 

FOR  CONSOLE  INPUT  ! 

00C0 

61E0 

LD 

R0 .GETOUT (R14 ) 

00C2 

030A 

00C4 

4PF0 

CP 

R0 ,NXTPTR'R14) 

cece 

0308 

00ce 

EE06 

JR 

MZ,  RESPONSE  !  P»?E  EEC  CHF.  ! 

!  CHECK 

FOR  BOOTLOAD  SIGNAL  ! 

LOP  MOR: 

00CA 

6131 

LD 

R1 ,S IGNAL ( R3 ) 

00CC 

0000 

00CE 

0B01 

CP 

P.l,#%0001  !  CE  FOE  SIGNAL  ! 

00D0 

0001 

00D2 

E62C 

JR 

Z , BGN_BOOT  !  RIC  BOOTLOAD  SIG 

00D4 

E8F5 

CD 

RESPONSE: 

!  DETERMINE 

INPUT  CHAR  RESPONSE  ! 

?0D6 

76C  A 

LDA 

R1?,GET3UF( R12 ) 

00De 

0000* 

•00DA 

1FA0 

CALL 

OR  10 

00DC 

2028 

LDB 

RL0, 0R2 

00DE 

76CA 

LDA 

310, SNDCHP ( R12 ) 

00E0 

0000* 

?0E2 

1FA0 

CALL 

OR10  !  ECHO  TO  CONSOLE  ! 

00E4 

A10D 

LD 

R13.P.0  !  SAVE  CHAR  ! 

00E6 

C80D 

LDB 

3L0,#CR 

C0F8 

1FA0 

CALL 

one  !  SEND  CR  TO  CONS  ! 

00EA 

C60A 

LDB 

RL0,#LF 

00EC 

1FA0 

CALL 

OR10  !  SEND  LINS  FEED  ! 

!  INSURE  MCZ  SYSTEM  IS  INITIALIZED  ! 

30EE 

3402 

LDAR 

R2,MC2_MSG  !  INIT  MESSAGE  ! 

00E0 

00F0 

00F2 

76CA 

LDA 

31 0 ,  S NDMSG ( P.12  ) 

00F4 

0000* 

C0F6 

1FA0 

CALL 

OR10  !  SEND  TO  CONSOLE  ! 

30F8 

4DE8 

CLR 

GST0UTCR14) 

00FA 

030A 

00FC 

4DE8 

CLR 

NXTPTR ( R 14 ) 

00FF 

0308 

0100 

76C  A 

LDA 

R10 ,OUIT [ R12 ) 
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0102 

0000* 

0104 

15*8 

J? 

3?.10  ENTER  TRANSPARENT  wODE 

!  RETURN  POINT  FORM  TRANSPARENT  *ODE  ! 

■MM I  RTN: 

!  DETERMINE 

COMMAND  BRANCH  ! 

0106 

3402 

LDAP. 

R2.L0AD_MSG 

0108 

0086 

010A 

76CA 

LD  A 

P.10, SNDMSG(?.12) 

010C 

0000* 

010F 

1EA0 

C*LL 

?R10 

0110 

A1D2 

LD 

R2.R13 

0112 

0A0A 

C?3 

RL2 ,#%53  !  CK  FOR  SaSS  300TSTRA 

0114 

5353 

0116 

EE03 

J  R 

NZ, OTHER 

0110 

340D 

LDAR 

R13 ,BOOT_COQRD 

011 ' 

0015 

011C 

5802 

JP. 

S5T__PTRS 

OTHER: 

011E 

340D 

LDA? 

-13, MONITOR  !  START  OF  DMCNITOR  ! 

0120 

007C 

SET  ?T*S : 

0122 

61E1 

LD 

HI .NXTPTR (R14 )  !  RESET  RNIGBUF  ! 

0124 

0308 

0126 

6F51 

LD 

5ET0UT (R1 4) ,R1  I  OFFSET  POINTERS  ! 

0128 

030A 

012A 

15D8 

JP 

<?R13  f  BRANCH  f 

!  N0N-3QQTL0 AD  CPU  RESPONSE  TO  SIGNAL  ! 

BGN  BOOT: 

l  PASS  LOG  CPU  0?  CPU  INTO  30CTSTRAP  ! 

*12C  61EC  LD  "  ?  12,  ADR  STB(P.14; 

0125  0314 

0130  4D38  CLR  SIGNAL (R3 ) 

0132  0000 

0134  6131  LD  Rl.MSG  BLK(R3) 

0136  0004 

0138  1E13  JP  SSI  !  TRANSFER  TO  BOOTSTRAP  ! 
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|  ***********  5**  S**;**  **5****  **  5**  **5*#  **5:t5*****  V 

*  ASSUME  BCCTLCAD  COORDINATOR  ROLE  * 

***********5*****************************  | 


BOOT  COORD: 

013  A 

6FE3 

LD 

PETRI ( R14) , 

R3  !  SAVE  ENTRY  BASE  ! 

013C 

0312 

013E 

3404 

LDAR 

R4, BOOTLOAD 

!  LOAD  FILENAME  ! 

3140 

0090 

0142 

A173 

LD 

•-3.  P.7 

i  GLOBAL  MEMORY  ! 

0144 

0103 

ADD 

R3 , #*0200 

I  BCOTLOAD  ADR  ! 

3146 

0200 

•  LOAD  EOOTLOAD  PROGRAM 

! 

0148 

76CA 

LDA 

R10.LCAD  FILE'.  R12) 

<7 14 1 

0000* 

014C 

1FA0 

CALL 

8F10 

014E 

A174 

LD 

R4.R7 

!  GL03AL  MEMORY  ! 

0150 

»14B 

LD 

R11.R4 

!  3 YE  BASE  ADR  ! 

0152 

010B 

ADD 

Rll,#?,)200 

F  EOOTLOAD  ADR  ! 

0154 

0200 

0156 

210C 

LD 

R12 , #0 

0156 

0000 

015A 

A151 

LD 

Rl.P-5 

!  NUMBER  OF  CPU'S  ! 

!  STORE  BOOTLOAD  ADDRESS 

IN  MSG_3LE  OF  ALL  CPU'S  ! 

DO 

015C 

6F43 

LD 

MSG_BLK(54) 

,R3  !  PLACE  ADDRESS  ! 

015? 

0004 

0160 

AB10 

DEC 

R1 

0162 

E603 

JR 

Z  ,S IG_NXT 

0164 

0104 

ADD 

P4,#74 

!  NEXT  LOG_CPU  NUMBER 

0166 

004A 

0168 

E8F9 

OD 

SIG  NXT: 


!  SIGNAL 

ALL  CPU'S  TO  TRANSFER 

CONTROL  ! 

016A 

61EC 

LD 

R12  ,  ADR_STR ( R14 ) 

!  GET  OWN  LOC_CPU  NO. 

016C 

0314 

01 6E 

DFDF 

C  ALF. 

SIGNAL  CPU 

0170 

617A 

LD 

R10,CPU_LIST(R7) 

0172 

000C 

0174 

4DA5 

LD 

SIGNAL( R10 ) ,#1 

!  BOOTLOAD  CPU  SIGNAL 

0176 

0000 

0178 

0001 

017A 

61 E3 

LD 

R3, RETRY (R14 ) 

!  OWN  ENTRY  BASS  ! 

017C 

0312 

017E 

4D38 

CLR 

SIGNALCR31 

0180 

0000 

0182 

1FB9 

J? 

0R11  ! 

TRANSFER  SELF  ! 
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FFOR  : 


0194 

0186 

3432 

3374 

LDAR 

R2  ,ERR_MSG 

3188 

018A 

76  C  A 
0030* 

LDA 

R10,SNDMSG(R12 

31SC 

IF  *3 

C  'LL 

0?  13 

018? 

?86F 

DECISION 

t  ***####**# 

END  BOOTLOAD  a#*#*****#***#*# > 

LOAD  MSG: 

0190 

0D 

BVAL 

%0D 

3191 

4C 

BVAL 

'T  ' 
u 

0192 

4F41 

WVAL 

'Ok' 

0194 

4449 

WVAL 

'll' 

3196 

4F4? 

WVAL 

'NG' 

319e 

2E2E 

WVAL 

*  ✓ 

•  • 

019A 

2E2? 

WVAL 

0  * 

•  • 

"19C 

2E 

BVAL 

*  0 

01 9D 

0D 

BVAL 

%0D 

MONITOR: 

319? 

34e4 

LDA? 

F4.DMONITOR  !  LOAD  FILE  NAME 

01A0 

304C 

01A2 

2103 

LD 

R3,#*0000 

31  *4 

3030 

01A6 

76  C  A 

LDA 

R10,LOAD_FILE(R12) 

01A8 

0030* 

31  A  A 

ITS  3 

CALL 

9R13 

01  AC 

2103 

LD 

P3,#*0000 

31  A? 

0030 

3133 

F84C 

JR 

DIS ABLE_PROM  !  TRANSFER  CCNTRC 

31B2 

END  EOOTLOAD  CPU 

1 60 


”1P2 


SIGNAL.  CPU  PROCEDURE 

#  * 

*  SI 3NALCPU :  PLACES  SIGNAL  (#1)  IN  * 

*  SIGNAL  BLOCK  FOR  EACH  CPU  EN-  * 

*  TRY  IN  COMF1 G_TABLE.  * 


ENTRY 

!  SIGNAL  ALL  CPU  TO  DOWN-LOAD  ! 

0132 

76^0 

LDA 

R13 , CPU_L 1ST ( R7 ) 

C1B4 

777C 

01B6 

010D 

ADD 

P13, #74  !  LOG_ CPU  1  ENTRY 

0138 

004A 

71B  A 

A 154 

LD 

R4.R5  !  TOTAL  NO.  CPU  ! 

01EC 

AE40 

D7C 

P.4 

01BE 

P609 

JR 

Z  ,  ALL_S 1 3 

DO 

01C0 

4ED5 

LD 

SIGNAL(P13)  ,#1  !  LOAD  SIGNAL  ! 

01C2 

0000 

71 C4 

7771 

71C6 

AB40 

DEC 

P4 

31C9 

E603 

JR 

Z  ,  ALL  SIG 

71 C  A 

010D 

ADD 

R13, #74  !  NEXT  LOG_CPU  ADR 

01CC 

004A 

01CE 

E9F9 

OD 

ALL  SIG: 

01 D0 

9E08 

RET 

011)2 

END  SIGNAL. 

.CPU 

BOOTLO >D: 

01D2 

0F 

BVAL 

%0? 

01D3 

4C 

3VAL 

'L  ' 

71D4 

4F41 

W’/AL 

'OA' 

01D6 

4420 

*  V  AL 

'D  ' 

01E9 

424? 

VVAL 

'EC' 

7  ID  A 

4E54 

W7AL 

'OT' 

01DC 

5354 

W7AL 

'ST  ' 

71DE 

5241 

WVAL 

'RA' 

"1E0 

5720 

W  7  AL 

'P  ' 

MCZ  MSG: 

31E2 

0A 

B7AL 

%0A 

71E3 

52 

B7.AL 

*  T.  / 

n 

01E4 

4553 

WV  AL 

'•PS ' 

01E6 

4554 

WVAL 

'ET' 

71E8 

274D 

W  7  *  L 

'  K ' 

161 


711?* 

4354 

V  V L 

'CZ' 

01  EC 

0r 

BVAL 

%0D 

r  1TD 

20 

B  7 .4  L 

/  / 

DMONITCR 

• 

(?1  ?F 

0r 

BVAL 

%0D 

01FF 

4C 

BVAL 

'L  ' 

eiF3 

4F41 

V  V  A  L 

'Ok' 

01F2 

4420 

W7AL 

'D  ' 

01F4 

4D4F 

W'L 

'MO' 

C1FC 

4E4J 

WAL 

'MI' 

01F8 

544F 

WAL 

'TO' 

01FA 

5220 

WAL 

✓  TX  / 

r* 

ERR  MSG: 

01FC 

06 

BVAL 

*06 

01FD 

45 

BVAL 

'E' 

01FE 

5252 

y  V  AL 

'RR' 

0200 

4F52 

WAL 

'OR' 

0202 

0D 

BVAL 

*0D 

0203 

20 

BVAL 

/  / 

0204 

MAP  MEMORY  PROCEDURE 

*  IS:***#######*#  Jf'*##**#***#*:*' 

a 

*T* 

*  MA  ? 

MEMORY:  MAPS  CPU  MEMORY  ACCESS  * 

* 

BY  DOMAIN,  AS  TO  LOCAL  (1) ,  * 

* 

GLOBAL  (2),  DUAL  USE  (3),  * 

* 

NON  USE  ( 4 ) ,  NON  ACCESS  (5)  .  * 

* 

* 

*  REG 

USE:  INPUT  P13  =  ADr  MEM  MAP  * 

* 

its####*,#!?*:*:#####:*#####**####  I*#:*####**####  » 

ENTRY 

0204 

Ain 

LD 

R1.R13  !  SAVE  BASE  ADR  ! 

0206 

2102 

LD 

R2 , #%55  A  A  !  R/y  PATTERN  ! 

0208 

55AA 

020A 

er>43 

clr 

R4 

020C 

2109 

LB 

R9,nF900  !  END  ATR  ! 

020E 

E800 

0210 

2110 

LD 

R0  ,<?R1  !  1ST  MAP  BLK  ! 

0212 

DFFF 

C*LR 

SYS_MA?  !  MAP  SYSTEM  MODE  ! 

0214 

9E08 

RET 

0216 

END  MAP 

MEMORY 
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0216 


SYS_M '  ?  PROCEDURE 

I  # SC.*#*  sj« jpsfc  *:#  a# 


* 

%•» 

V 

rtf 

SYS  M*P:  M<?S  MEMORY 

ACCESS  IN  THE 

r 

rtf 

S  YS  TEM  MODE  INTO 

COMF1 G_TABLE 

* 

>1= 

FOR  CPU. 

jb 

£ 

* 

•Y* 

~EG  USE:  INPUT  HI  = 

BASE  MAP  3LK 

* 

R  2  = 

R /•:/  PATTERN 

.b 

* 

P4  = 

ST'-RT  MEM 

3^e 

rtf 

R9  = 

END  ADR 

*¥* 

* 

rf 

ENTRY 

DO 


7216 

6148 

LD 

P8.RW  PATTERN (R4)  !  CK  FOR  R 'V 

0216 

0000 

021A 

SE29 

CP 

R8.R2 

021C 

EE0D 

JR 

NZ, BAD  MEM 

!  NO  R/V/  ! 

021 E 

6148 

LD 

R8.CPU  NUM(R4)  !  GET  CPU  CNT  ! 

0220 

0002 

0222 

0B08 

CP 

38,#%000 1 

!  CK  FOR  LOCAL  ! 

0224 

0001 

0226 

EE02 

JR 

NZ, GLOBE  CK 

'’223 

0001 

LD3 

~H0,#*01 

!  RECORD  LOCAL  ! 

322A 

E807 

JR 

CONTINUE 

GLOBE  CK: 

022C 

9B58 

CP" 

P9.R5 

!  CK  FOR  GLOBAL  ! 

022E 

EE02 

JR 

NZ.NO  USE 

!  1<CPU  NUM<R5  ! 

0230 

C002 

LDB 

RH0  , #f 02 

!  RECORD  GLOBAL  ! 

0232 

E803 

JR 

CONTINUE 

NO  USE: 

0234 

C004 

~LD3 

RH0 , #%04 

!  RECORD  NCN_US E  ! 

0236 

E801 

JR 

CONTINUE 

BAD  MEM: 

2236 

C005 

LDB 

RH0 , #%05 

!  RECORD  NON_ACCESS  ! 

CONTINUE: 

023  A 

2F10 

LD 

0R1 ,R0 

!  STORE  MAP  BLOCK  ! 

023C 

A911 

INC 

R1.42 

!  NEXT  MAP  3LK  ! 

023F 

SB49 

CP 

R9 ,  P4 

0240 

9E06. 

RET 

Z 

!  FINISHED  ! 

0242 

9D08 

CL.R 

R0 

0244 

0104 

6DD 

E4,#<?0800 

!  NEXT  MEM  ADR  I 

0246 

08*0 

0246 

F8E6 

OD 
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5*24* 


END  SYS  M*P 


024A  DISAPLE_PROM  PROCEDURE 

;*  **  $  5  *  $  <s  ##  #  #  *  **  ns  «#s)i***  # 


*  * 

*  DISABLE  PROM :  REPOSITIONS  CODE  FOR  * 

*  "PROM  DISABLING  AND  TRANSFER  * 

*  OF  CONTROL  FLO*.  * 

*  * 

*  REG  USE:  INPUT  R3  =  TRANS  ADR  * 

*  * 

ENTRY 

024A 

A.  161 

LD 

R1.P6 

!  MOVE  LOCATION  ! 

C24C 

024E 

3404 

0014 

LDAR 

R4,3GN_C0EE 

0250 

0252 

2102 

0003 

LD 

!  ACTUAL 
DO 

E2,  #3 

CODE  TRANSFER  ! 

0264 

21  4D 

LD 

R13.0P4 

!  GET  INSTRUCTION  ! 

0256 

2E1D 

LD 

0RI.R13 

!  PUT  AT  NEW  LOC  ! 

0253 

»B20 

DEC 

P.2 

025A 

E603 

JR 

Z ,D0  CODE 

025C 

A  911 

INC 

Rl,#2 

025E 

0260 

4941 

ESE9 

INC 

OD 

F.4,#2 

DO  CCD^: 


0262 

1E68 

J?  0?6  !  TRANSFER  CONTROL 

BGN  CODE: 

C264 

3*16 

OUT  ROM_DIS ABLE ,R1 

0266 

FEF0 

0268 

1Z3S 

JP  0R3 

026A 

END  DISABLE-  PROM 

END  300TL0AD2 
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3.  SUPPORT!  MODULE 


Z9000ASM  2.32 

ICC  03J  CCDS  STMT  SOURCE  STATEMENT 

1  SUPPOPT1  MODULE 
$LISTON  $TTY 


*  s 

*  SUPPORT1  MODULE:  MODULE  ONE  TOR  * 

*  SECONDARY  STORAGE  PRIMITIVE  * 

*  FUNCTIONS  SUPPORT.  STRICITLY  * 

*  HARDWARE  DEPENDENT:  SHOULD  * 

*  MEET  STORAGE  DEVICE  REQUIRE-  * 

*  MINTS  FOR  INTERFACING.  * 

*  * 


##<!#*****#  I 


CONSTANT 

RXR  :=  2 

TXR  :=  3 

PAR  :  =  7 

PORTAD  :=  %FFD9 

P0RT3D  :=  %FFE1 

POPTAC  :=  %FFDB 

PORTS C  :=  %FFE3 

I DPCST  :=  %FFCB 

ICPORT  :=  %FFC9 

TCMD  :=  %F?D2 
TDTA  :=  ^FFD3 


BUS  LOCK 

= 

tFFF9 

PUS  UNLOC? 

:=%FFF8 

vintr 

= 

% ( 2)0001000003000000 

VIBIT 

= 

12 

ESCAPE 

= 

%1B 

PS 

= 

%0  9 

LINDEL 

= 

%?F 

CR 

= 

%0D 

LF 

= 

%0A 

TXOFCH 

= 

%13 

TXONCH 

= 

%11 

INSIZ 

= 

129 

!  INTBUF  SIZE 

! 

OUTSIZ 

= 

128 

!  OUTBUF  SIZE 

t 

RBSIZ 

= 

256 

!  RING  BUFFER 

S 
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WORD 


!  BIT  POSITIOMS  I\' 


TRP*DE 

=  3 

I  STC? 

=  1 

OSTCP 

=  2 

SNDMDE 

=  3 

LDMDE 

=  4 

ESC 

=  5 

TXMSX 

=  %6 

CCMDS 

=  12 

EXTERNAL 

GFTNXT 

EXTERNAL 

SET ADR 

EXTERNAL 

GMCZAD 

EXTERN »L 

SNDMCZ 

EXTERNAL 

GSTBUE 

EXTERNAL 

SNDCHR 

EXTERNAL 

EliOR 

EXTERNAL 

SKPBLK 

EXTERNAL 

CONVERT 

EXTERN  «L 

GETCHR 

INTERNAL 

^SECTION 

DATA  DEC 

$ABS  0 

3030 

INT3UF 

ARRAY 

00e0 

OUTBUF 

ARRAY 

0100 

ENGBUF 

ARRAY 

3200 

MCZBUF 

ARRAY 

0300 

3UEADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

3306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

330A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GFTOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

3FXSTR 

WORD 

3316 

BRKADR 

WORD 

0318 

TMPSP 

WORD 

031 A 

TMPFCW 

WORD 

031C 

MFLAGS 

WORD 

MONITOR  FLAG 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 


[126  BYTE] 
[126  3YTE] 
[256  BYTE] 
[256  BYTE] 
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!  USER  RFGISTF"  STrR AGE  ! 


03  if 

30 

WORE 

3320 

R1 

WORD 

0322 

R2 

WORE 

0324 

P3~ 

WORD 

0326 

R4_ 

WORE 

3328 

R5_ 

WORD 

332A 

r.6 

WORD 

032C 

R?“ 

WORD 

332E 

R6" 

WORD 

0330 

?.9_ 

WORD 

0332 

R 10 

WORE 

3334 

Rll~ 

WORD 

0336 

R 12 

WORD 

3338 

R 13 

WORD 

333A 

R14" 

WORE 

<'33C 

P 15 

WORD 

033E 

R  PC 

WORD 

3343 

RFC' 

WORD 

0342 

RETRY 

WORD 

GLOBAL 

^SECTION  SUPPORT!  PROC 

$RSL  0 

GLOBAL 

3000 

GETLNE  PROCEDURE 

*  fyETLNJ  : 

REC  ONE  LINE  INPUT 

FROM 

•P 

'i' 

♦ 

CONS  ( P0RT2 ) ,  UP  TO  80-CHR 

* 

MAX,  STORE  IN  IMTBUF  PLUS 

*** 

CR,  AND  ECHO  BACK 

TO  CONS. 

£ 

* 

*  F.TG  USE 

:  RETURN  RL0  =  1ST 

CHP.  IN  BUF* 

AND  Z  IF 

CHR  =  CR 

* 

* 

#«$#*#*#*#***  *$##**#**#$*«*$**$##***#### ; 

ENTRY 

3000 

76T2 

LEA 

R2, INTBUF(H14) 

!  GET  BASE  INTBUE 

3002 

0000 

0004 

2101 

LD 

HI  ,  #  I  N  S I  Z  l  GST 

MAX  SIZE 

! 

0006 

2080 

0008 

6FF2 

LD 

INTPTP.  (R1 4) ,  R2 

000A 

0304 

000C 

DFF8 

CALS 

CONSOL  !  FILL 

LINE  IN 

INTBUE! 

000S 

34CA 

LEA 

P10,  R12( #SKP3LK  • 
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0010 

011C  ' 

0012 

1FA0 

CALL 

OR  10 

0014 

0016 

63E0 

0304 

DEC 

IN  TPTR ( ? 14 ) 

!  RETURN  TO  START 

0018 

001A 

0A08 

0D0D 

CPB 

RLZ, # CR 

001C 

001E 

9E08 

RET 

END  GETLNE 

!  GOT  1ST  CHR  =  CR  ! 

GLOBAL 

0012  CCNSCL  PROCEDURE 

’  # 

*  CONSOL:  STORE  CONS  INPUT  LINZ  IN 

*  BUFFER  ADDRESS  PROVIDED, 

*  PLACE  CR  AT  END  OF  LINE, 

*  AND  PROVIDE  DELETE  GEAR 

*  »ND  DELETE  LINE  EDIT  FUNC. 

*  REG  USE:  INPUT  HI  =  SIZE  OF  BUFFER  * 

*  R2  =  BUFFER  ADR  * 

*  RETURN  R1  =  *  OF  ?2C  CHR  * 

*  AND  Z  I?  BUF  LIMIT  * 

*  # 

*>j£  Jfcsjdjdfc*  ##*£«##  J**####*#*  | 


ENTRY 


001E 

0020 

6FE2 

0300 

LD 

BUFADR (314 ) 

,R2  J  SAVE  BOTH  2UF  ADR 

0022 

0024 

6FE1 

0302 

LD 

HD  NO: 

BUFSIZ 'R14) 

,R1  !  AND  BUF  SIZE  ! 

0026 

0028 

61 E2 
0300 

LD 

R2,BUFADR(R14) 

ee2A 

8D18 

CLR 

REDLOP: 

31 

002C 

DFC1 

CALR 

CONRD  I 

GET  CHAR  AND  ECHO  ! 

002E 

0030 

0A08 

6161 

CPB 

RL0,#*61  ! 

CONVERT  TC  UPPER  CASE! 

0032 

E704 

JR 

C, UPCASE  ! 

NOT  LOWER  CASE  ! 

0034 

0036 

0A08 

7B7B 

CPB 

RL0,#%73 

0038 

EF01 

JR 

NC  .UPCASE  ! 

YES  LOWER  CASE  ! 

003A 

A285 

RESB 

UPCASE: 

RL0,#5  ! 

CONVERT  TO  UPCASE  ! 

003C 

2E28 

LDB 

!  PERFORM 

0R2.RL0 

EDIT  FUNCTIONS  ON  INPUT  ! 

303E 

0040 

0A08 

0809 

CPB 

RL0,#BS  ! 

CK  FOR  DSL  CHR  ! 

0042 

EE11 

JR 

NZ  , CONTCK 

!  NO,  CONTINUE  CK  ! 

PC44 

*820 

DEC 

?2,#1 

!  YES.  BACKSPACE  ! 

0046 

AB1 0 

D*C 

R1 

'■'048 

4BF2 

CP 

R2  ,3UF ADR ( R14  )  !  NOT  TCC  FAR 

004A 

0300 

304C 

F707 

JR 

C , DO  OVR 

0P4E 

C820 

LDB 

RLP, # '  ' 

0060 

34C  A 

LDA 

R10 , I 12 ( tfSNDCHI ; 

0052 

01DE' 

0054 

IF. 4  0 

CALL 

OR  IP 

!  3LANX  CUT  BAD  CHR 

0056 

C600 

LDB 

FL0,#BS 

0058 

1FA0 

CALL 

OR  10 

0.05  A 

E8E8 

JR 

REDLOP 

!  CONTINUE . ! 

DO  OVR : 

005C 

C82A 

LD3 

RL0 ,# 

P05E 

34  C  A 

LDA 

R10 , P.12  (S  NDCHR  ) 

0060 

01DS 

0062 

1FA0 

CALL 

OR  10 

!  SEND  PROMPT  ! 

0064 

E8F0 

JR 

RDNG 

!  START  AGAIN  ! 

CONTCK: 

0066 

0A08 

CPE 

•L3,#LINDSL 

!  CK  FCR  LINE  DVL 

0068 

7F7F 

006A 

S609 

JP. 

Z, DELIME 

!  YES . ! 

006C 

A920 

INC 

3.2, tn 

006E 

*910 

INC 

El 

0070 

0A08 

CPE 

RL0,#CR 

!  CK  FOR  CR  ! 

0072 

0D0D 

0074 

E60E 

JR 

Z, ADDLE 

!  YES,  ATD  LF  CHR  ! 

0076 

4BE1 

C? 

R1  .BUFSI Z  f R14 )  1  SIZE  CK  I 

0078 

0302 

007* 

EED8 

JR 

NZ.REDLC? 

!  CK.  GET  NEXT  CHR 

007C 

9E06 

RET 

Z 

!  TOO  L  4?.GE ,  E"?CY. 

DELINE: 

007E 

C85E 

LDB 

PL0, 6%5E 

3060 

34CA 

LDA 

R10  ,R12 ( SNDCHR )  !  SND  LINE  DEL  ! 

0062 

01DE' 

0084 

1FA0 

CALL 

OR  10 

0066 

DFF5 

CAL? 

MEWLNE 

!  START  NEW  LINE  ! 

0088 

C820 

LDB 

RL0 , 6 '  ' 

008A 

34C  A 

LDA 

R1 0 , E12 ( S  NDCHR ) 

008C 

01DE 

008E 

1FA0 

CALL 

OR  10 

!  SND  CHR  ! 

0090 

ESC  A 

JR 

HDNG 

!  START  AGAIN  ! 

ADDLE: 

0092 

C80A 

LDB 

RL0,#LE 

0094 

34CA 

LDA 

Ele, R12 ( NDCHR ) 

0096 

01DE 

169 


0098 

1FA0 

CALL 

9R10  !  SEND  LF  CHR  ! 

339A 

ED43 

FESFLG 

Z 

309C 

SE09 

RET 

O09E 

END  CONSOL 

GLOBAL 

009E 

NEWLNE  PROCEDURE 

*  NEWLNE: 

:  SENDS  CR  AND  L?  TO  CONSOLE  * 

* 

* 

ENTRY 

009? 

34  C  A 

LDA 

R1 0, R12 ( S  NDCHR ) 

00A0 

01DE 

00A2 

CS0D 

LDB 

RL0,#CR 

00  A4 

1FA0 

CALL 

OR  10 

00A6 

C80  A 

LDB 

RL0,#LF 

30A8 

1FA0 

CALL 

OR10  !  ADR  SNDCHR  IN  R10  ! 

00A  A 

9F08 

RET 

00AC 

END  NEWLNE 

GLOBAL 

00AC 

CONRD  PROCEDURE 

|  #****##$###*# ***#*#  sec#*##***#####***:**:### 

■«.  a. 

*  CONRD: 

GETS  CHAR  FROM  CONSOLE  INPUT  * 

* 

BUFFER  (INTBUF)  AND  ECHOS  * 

* 

BACK  TO  CONSOLE.  LOOPS  UNTIL  * 

* 

RECEIVE  CHARACTER.  * 

* 

* 

*  REG  USE 

1:  RETURN  RL0=  CHR  * 

AND  Z  IF  CHR=CR  * 

* 

* 

a*##### I**:*##*##** ****#####* #**,**  f 

ENTRY 

00  AC 

61E0 

TC:LD 

R0 , GETOUT ( R14 ) 

00AE 

030E 

0030 

4BE0 

C? 

R0 , NXTPTR ( R14 )  !  COMPARE  GET  AND 

00E2 

030C 

!  PUT  PTRS  ! 

0034 

E6F3 

JR 

Z ,TC  !  AEC  NOTHING _  ! 

20E6 

93  F2 

PUSH 

0R15.P2 

0038 

34CA 

LDA 

R10.R12  x#GET3UF ) 

00BA 

0000* 

00EC 

1FA0 

CALL 

OP.  10  l  GET  PNGBUF  ADR  ! 

00BE 

6FE0 

LD 

GETCUT(R14) ,R0 

00CC 

030E 

00C2 

2028 

LDB 

RL0.0H2  !  STO  CHR  FOR  F.TN  ! 

00C4 

97F2 

POP 

R2  ,0R15 
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!  CHECK  FOR  NON-DISPLAY  FROM  LOAD  FILE  ! 
00C6  0B09  C?  «9,#%AA»A 

00C3  AAA A 

CPC  A  E603  J  Z.NC  DISPLAY 

00CC  34C  A  LDA  1:10,  R12  ( SNDCHR ) 

00CE  01DE ' 

00DP  1FA.0  C*LL  OR  If 

NO_DI SPLAT : 

00r2  9E08  RET 

00D4  END  CONRD 


GLOBAL 

00D4  QUIT  PROCEDURE 

j  *#l(x  :*#####  j*J**t#  j)s#j)c  3)<5S*«)cj',: 

T  # 

*  QUIT :  TRANSMITS  ALL  CHR  AND  CR  FROM  * 

*  CONS  TO  MCZJ  THEN  RELAYS  ALL  * 

*  TO  CONS  FROM  MCZJ  AND  ETC.  * 

*  * 


ENTRY 


00D4 

?0D6 

4EF8 

0310 

CLR 

MC  ZPUT (R14 ) 

00DS 

00DA 

4DE8 

0312 

CLR 

MCZGET{R14) 

0  0DC 
00DE 

65E0 

031C 

SET 

MFLAGS (R14) ,#TR?MDE  !  RESET  3U?  PTRS 

!  AND  ENTER  TRANSPARENT  MODE  ! 


!  CONSOLE  RECEIVE  ROUTINE  ! 

PORTS : 

00E0  61E0  LD  R0 ,GETOUT (R14) 

P0E2  03eE 

00E4  ABS0  CP  K0 , NXTPTR ( R14 )  !  CK  FOR  CONS  INPUT  ! 

00E6  030C 

00F8  E60 A  JR  Z,  PORTA  !  NO,  C£  MCZ .  ! 

F  PROCESS  CONSOLE  INPUT  l 
00EA  34 C A  LDA  810 ,R12 ( #GET3U? ) 

20 EC  0000# 

00EE  1FA0  CALL  OR  10  !  GET  P. NGBUF  ADR  ! 

00F0  6FE0  LD  GETOUT (R14 )  ,R0  !  SET  EEC-IN  PTR  ! 

00F2  030E 

00F4  2028  LDB  RL0.GR2 

00F6  34CA  LDA  R10,R12(*SNDMCZ) 

00F8  0000* 

007A  1FA0  CALL  0E10  !  ECHO  CHR  TO  MCZ  ! 

00FC  EEF1  JR  NZ, PORTS  !  CONTINUE  UNTIL  CR  ! 


9 


!  MCZ  RECEIVE  ROUTINF  ! 
PORTA: 


00FF 

6150 

ld 

R0  ,MCZGET  ( P.14 ) 

01^0 

0312 

0102 

4B50 

CP 

R0,MCZPUT(P14)  CK  FOR  MCZ  INPUT 

0104 

0310 

0106 

E6EC 

JR 

Z.PCRTB  !  NC,  CK  CONSOLE...! 

0108 

34CA 

LDA 

P.10,  R12  ( #GMCZAD) 

010A 

0000* 

010C 

IF  A  0 

CALL 

OR  10  !  GET  M.CZ3UF  ADR  ! 

010E 

6FF0 

LD 

MCZGST (P.l 4) ,  P.0 

0110 

0312 

0112 

2028 

LDB 

RL0.OR2  !  GET  CHAR  FROM  MCZBUF  ! 

0114 

34CA 

LDA 

P.10, R12(SNDCHF) 

0116 

01DE 

0118 

1FA0 

CALL 

3R10  !  OUTPUT  CFR  TO  CONSOLE  ! 

01 1 A 

E8F1 

JR 

POP.TA  !  CONTINUE  TIL  EMPTY  ! 

01 1C 

END  QUIT 

GLOBAL 

011C 

SKPBLK  PROCEDURE 

|  #$*#*£*##* Si,':*:*#****###:**^#***##*:#*:#*##*# 

ti 

*  SKPBLK: 

SKIP  OVER  BLANKS  TO  NEXT  * 

❖ 

CHARACTER.  * 

* 

* 

*  REG  USE 

:  RETURN  RL0  =  1ST  NON-BLX  * 

* 

CHAR  AND  Z  IF  =CR  * 

«#*###*#«#*#*«*#*$$*#*«#***  Jtc##****#*#*#*  1 

ENTRY 

!  SKIP  OVER 

BLANKS  TO  NEXT  ARGUMENT  ! 

011C 

DFE0 

CALR 

GETCHR 

011E 

9E06 

RET 

Z  !  GOT  CR  ! 

0120 

0A09 

CP3 

RL0,#'  '  I  CK  FOR  BLANK  ! 

0122 

2020 

0124 

E6FB 

JR 

Z, SKPBLK  !  YES .  ! 

0126 

9E08 

RET 

!  GOT  CHAR  ! 

0128 

END  SKPELK 
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t 


< 


3128 


GLOBAL 
GET  A  Dr. 


PrOCEDUR  £ 

* 


*  GFTABF:  GETS  MEXT  ARGUMENT  AND  * 

*  CONVERTS  TO  HEX  ADDRESS.  * 

*  * 


*  AEG  USE:  INPUT  FL0  =  1ST  CH  OF  8 A G  * 

*  RETURN  R3  =  HEX  ATR  * 

*  AND  Z,C  I?  C>  ONLY51' 

*  2,,NC  IF  ARG.CR  * 

*  NZ  , NC  IF  AP.G.SP  * 

*  # 


ENTRY 


!  CK  FOR  CR 

ONLY  ! 

0128 

8D39 

CLR 

R3 

012A 

0A08 

CP3 

RL0,#CR  I  CK  FOR  CR 

» 

012C 

2D0D 

012E 

EE02 

Jr 

NZ .NOTCH 

2130 

8D91 

SETFLG 

L 

2132 

9E08 

P.  FT 

!  RETURN  FOR  CR  ONLY  ! 

•CONVERT  ASCII  ADDRESS  TO  HEX  ADDRESS 

! 

NOTCH: 

3134 

DFE2 

CALF. 

CONVERT  ! BYTE  TO  4-BIT 

HEX  ! 

0136 

E70A 

JR 

C, REPERR  !  GOT  BAD  CHR 

! 

2138 

BEB9 

RLDB 

PL0.RL3 

313A 

ES38 

R1DB 

RL0.RH3  !  SHFT  LEFT  TO 

MS  W  ! 

013C 

TFF0 

CAL”. 

GSTCER  !  GST  CHR  FROM 

INTBUF! 

213E 

9E06 

RET 

Z 

0140 

0A08 

CPB 

PL0,#'  '  r  CK  FOR  SPACE 

! 

0142 

2020 

2144 

5EF7 

JR 

NZ. NOTCH  !  IF  NOT,  CCNT 

. ! 

0146 

D016 

cal? 

SXPSLX  !  SKI?  TO  NEXT 

iPG  * 

0148 

8D83 

RESFLG 

C 

014A 

9E09 

RET 

!  SPACE  'FTER 

ASG  ! 

REPERR : 

014C 

34CA 

LDA 

R10,R12(*EROR) 

014E 

0000* 

0150 

1SA8 

JP 

0R10 

0152 

END  GETADR 
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GLOB*!, 

0152  GETNXT  PROCEDURE 

I  tf###*!##**:##*#*##*#*#**#;*###**#*##*###**##*!!# 


*  GETNXT:  SKIP  TO  3EGINING  OF  NEXT  * 

*  ARGUMENT  IN  COMMAND.  * 

>1«  % 

*  REG  USE:  RETURN  RL0  =  CHAR  OR  CR  * 

*  AND  Z  IF  =  CR  * 

*  * 


#*#*#*#*#* ####*#*  I*##*#######* *##*>*#  l 

ENTRY 

!  SKIP  OVER  CURRENT  ARGUMENT  TO  NEXT  SPACE  ! 


0152 

DFFB 

CALK 

GETCHR 

0154 

9E06 

RET 

Z 

!  RTN  IF  CH=CE  ! 

0156 

0A0S 

CP3 

RL0 ,#  '  ' 

•  FIND  FIRST  SPACE  ! 

0153 

2020 

015A 

FEFB 

J? 

NZ .GETNXT 

015C 

ESEF 

JR 

SKPELK 

!  NOW  SKI?  PLANKS  ! 

015F 

END  GET 

NXT 

GLOBAL 

015E 

GETCHR 

PROCFEURE 

J  J)c sfts;:*##*##**#*  j**:##  Jit##*# 

#  * 

*  GETCHR :  GETS  NEXT  CHR  FROM  INTEUF 

*  AND  INCREMENTS  INTPTR.  # 

3  * 

*  REG  USE:  RETURN  RL0  =  CHR  * 

*  AND  Z  IF  CR  * 

*  * 

*##*# -45*  j;:^#**#***#***  ; 

ENTRY 


015E 

93F2 

PUSH 

(AE15.R2  ! 

SAVE  WORK 

F  EG 

0160 

61E2 

LD 

R2, INTPTR :R14) 

0162 

0304 

0164 

2028 

LDB 

RL0.OR2  ! 

GET  CER  f 

0166 

69E0 

INC 

INTPTR (R14 ) , #1 

!  INC 

PTR  * 

0168 

0304 

016A 

0A08 

CPB 

F.L0,#CR 

!  CK  FOP.  CR 

f 

016C 

0D0E1 

016E 

97  F2 

POP 

R2.0R15 

0170 

9S08 

RET 

0172 

END  GETCHR 

E2E 
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ENTRY 


!  CHECK  FOP. 

VALID  CHAR 

i 

0172 

0  A08 

C?B 

R10,#'0'  ! 

FILTER  <'0'  ASCII 

j 

0174 

3030 

0176 

9E07 

RET 

C  ! 

ERROR  ! 

0178 

0A08 

CP3 

:-:L0,*'9'  +  i 

1  CK  IF  DIGIT  ’ 

017A 

3A3A 

017C 

E709 

Jfi 

C.NGFIX 

317E 

0A08 

CPE 

RL3,#'A'  ! 

FILTER  <  '  A '  ASCII 

j 

0180 

4141 

0182 

9E07 

RET 

C 

0154 

0A08 

CPB 

RL0 , 2  'F  '-rl 

! FILTER  >'F'  ASCII 

! 

0186 

4747 

0188 

EE06 

JR 

NC, RETSIG 

'.ERROR! 

016A 

0206 

SUBB 

RL0,*7 

!  ALPHA  ADJUST  ! 

018C 

0707 

NOFIX: 

018E 

0608 

ANDB 

?L0,#%0? 

!  GET  LOW  NIBBLE  ! 

0190 

0F0F 

0192 

8D83 

RESFLG 

C 

0194 

9E08 

RET 

!  RTN  HEX  VALUE  ’ 

RETSIG: 

0196 

8D81 

SETFLG 

C 

019e 

9E08 

RET 

1 

RTN  FOR  BAD  CHR  ! 

019A 


END  CONVERT 


HOB  AL 


PBUFNC 

LABEL 

ri9a 

PENTBF 

PROCEDURE 

1  S*#  **#)£*#*>*  VJjtSf.  !*S)S#  $t  3*  5*  a****##**# 

*  PP.NTBF 

:  PRINT  CONTENTS  OF  OUTBUF  * 

TO  CONS  WITH  CR  AT  END.  * 

*  PBUFNC 

:  PRINT  3UFFER  CONTENTS  WITH  * 

i?c 

NO  CR.  * 

ENTRY 

!  STORE  C R 

IN  CUTBUF  f 

019* 

61E2 

LD 

R2  , OUTPTR  f  H 14 ) 

019C 

0306 

01 9E 

0C25 

LDB 

GR2, #CR 

01A0 

0D0D 

01A2 

69E0 

INC 

OUTPTR( F.14) , #1 

01A4 

0306 

PBUFNC  : 

01 A6 

76E1 

LDA 

R1 , OUTBUF (HI  4)  !  LOAD  ADR  OF  OUTBUF 

01  AS 

00S0 

!  OUTPUT  LOOP  ! 

PRNT: 

01 A  A 

2018 

LDB 

RL0,GR1  !  OFT  CER  ! 

01AC 

A910 

INC 

HI  !  INC  INDEX  ! 

01 AE 

DEE9 

CALF 

3.NDCHR  !  OUTPUT  CHR  ! 

01B0 

S604 

JR 

Z, OUTLF  !  ? CHR  =  CR  ! 

01B2 

4BE1 

CP 

R1,CUTPTR(R14)  I  CK  FOR  END  ! 

?1B4 

0306 

01B6 

E7F9 

JR 

C, PRNT  !  LOOP . ! 

0138 

E802 

JR 

FINI  !  FINISHED  ! 

!  ADD  LF  AFTER  OUTPUT  OF  CR  ! 

OUTLF : 

013A 

C80A 

LDB 

RL0 , #LF  !  OUTPUT  Lj  ! 

01BC 

DFF0 

CALF. 

SNDCHR 

!  FILL  OUTBUF  WITH  BLANKS  AND  RESET  OUTPTR  ! 

FIMI : 

01BE 

76E3 

LDA 

R3  .OUTBUF (R14 ) 

01C0 

0080 

01C2 

6FE3 

ld 

OUTPTR (R14 ) ,  R3  !  RESET  PTR  ! 

01C4 

0306 

01C6 

2100 

LD 

P.0  ,#OUTSI  Z/2-1  !  FILL  CNT  ! 

01CS 

003F 

01C  A 

4DE5 

LD 

CUTBUF (R14)  ' 

01CC 

0080 

176 


t 


01CE 

2323 

01D0 

76E2 

LEA 

R2 , OUTEUF ' R14 ) 

01D2 

0  383 

31D4 

A 123 

LD 

1-3  ,7  2 

01D6 

A931 

INC 

R3,#2 

01D8 

131321 

LDI  - 

0R3  ,(?R2 ,  R0  !  FILL  CUTBUF  ! 

01EA 

0030 

21DC 

9E08 

RET 

01DF 

END  PRNTBF 

GLOEAL 

01DF 

SNDCHR  PROCEDURE 

!  Jjtljljjt  J*###  I*#*#*#  a*## 

i 

*  SNDCHR: 

V 

CK  MONITOR  FLAG  WORD  FOR  * 

! 

# 

OUTPUT  STOP  SIGNAL  (OSTCP);  * 

i 

jJj 

IF  NOT,  SEND  CHAR  TO  CONS.  * 

I 

*  REG  USE 

:  INPUT  RL0=  C”R  * 

*T* 

RETURN  EL3=  CHI:  AND  Z  IF  * 

* 

CHR  =  CR.  * 

* 

■r 

i 

at:*#*#:*## j 

i 

ENTRY 

| 

!  WAIT  FOR 

OUTPUT  CK  SIGNAL  ! 

[  01DF 

67E2 

BIT 

MFLAGS (R14 ) , #OSTO?  !  CK  FLAG  ! 

)  01E0 

031C 

i  01E2 

3E3D 

JR 

NZ .SNDCHR 

1 

! OUTPUT  CHAP  TO  TERMINAL  ! 

0134 

3A04 

I  M3 

RH0.PCRTBC  !  GET  PORT  STATUS  ! 

0136 

FFE3 

013e 

A600 

EITB 

RH0,#TXR  !  TRANS  ?DY?  ! 

01EA 

E6F9 

T  ~ 

.i 

Z, SNDCHR  !  NO,  CONTI  NUT...  1 

013C 

3A86 

OUTB 

P0RTBD.RL3  !  YES,  OUTPUT  CHR  ! 

01  EE 

FFE1 

0130 

0A08 

CPB 

RL3 , #CR 

01F2 

3D0D 

3134 

9308 

RET 

01F6 

END  SNDCHR 

GLOBAL 

CON  73  LABEL 

2176  CONYW  PROCEDURE 

*  * 

*  CCNVW:  CONVERT  INTERNAL  WORD,  4-  * 

*  4-BIT  HEX  VALUES  TO  FOUL  * 

*  9-3  IT  ASCII  REPRESENTATIONS  * 

*  OF  THE  HEX  VALUES.  * 

sjt  $ 


*  C0NV3:  CONVERT  INTERNAL  BYTE  HEX  * 

*  value  to  ascii  characters.  * 

<2  ilS 


* 

* 

REG  USE:  INPUT 

R5  =  WORD/BYTEO  ) 

-V 

* 

R3  *  CKSUM  ACCUM 

* 

RETURN 

S3  =  UPDATED  ACCUM 

❖ 

>* 

AND  ASCII  CHS 

* 

IN  OUTBUF 

.1. 

V 

* 

*##*#*##**#****#*%*X#*#*#*X*##*####*#*X*  J 

ENTRY 

!  CONVERT  WORD  ! 


21F6 

A050 

LP3 

RE0.R35 

!  1ST  BYTE  ! 

21F8 

DFFF 

CALL 

NIBBLE 

!  CONVERT  BYTE  ENTRY 

POINT 

! 

C0N73: 

71  FA 

«0D0 

LDB 

RE0, SL5 

NIBBLE: 

01FC 

3E08 

RLDB 

HL0.RH0 

! 

FIRST  NOBLE  ! 

01FF 

DFFF 

CALL 

CONPUT 

0200 

BEOS 

RLDE 

RL0.RH0 

!  NEXT  NIBBLE  ! 

ICONVERT 

NIBBLE  TO  ASCII  CHAR  ANT  STORE  ! 

CONPUT: 

0202 

0608 

ANDE 

RL0,#%0F 

; 

GET  NIBBLE  ! 

0204 

0F0F 

0206 

8083 

ADD3 

RL3,RL0 

t 

UPPATE  CKSUM  • 

0208 

0A08 

CP3 

RL0,n0A 

1 

0-97  ! 

020  A 

0A0A 

020C 

E702 

Jr 

C,  ASCII 

! 

YES...  ! 

020E 

0008 

ADD3 

RL0 ,  #7 

! 

NO,  CONVERT  CHR  ! 

0210 

0707 

ASCII: 

0212 

0008 

ADDB 

RL0 , #*30 

! 

CONVERT  TO  ASCII  ! 

0214 

3030 

!  STORE 

IF  OUTBUF  ! 

0216 

93  FI 

PUSH 

0R15.R1 

! 

SAVE  HI  ! 

0218 

61E1 

LD 

HI .OUTPTR (R14 ) 

021A 

0306 
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7I21C 

2E1S 

LDP 

CJR1.RL0 

7211 

691?  2 

INC 

CUTPTR ; 

2223 

3326 

3222 

97T1 

POP 

R1  ,PR15 

7224 

9E3S 

RET 

3226 

END  CONVV 

END  SUPPORTl 
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!  STOR 


4 


SUPPCRT2  MODULE 


Z8000ASM 
LOC  C3J 


.  02 

CODE  STMT  SOURCE  STATEMENT 

1  SUPP0RT2  MODULE 
$L IS  TON  $TT  Y 

;  *#***# 

t-  s? 

*  SUPPORT  TWO  MODULE:  MODULE  TWO  EC 2  * 

*  SECONDARY  STORAGE  INTERFACING  * 

*  * 

1 fr**#*####*##*  ***!##*#  He###***  Jit*#**:###  ###»*#  I 


CONSTANT 

RXR  :  = 

2 

TXR  :  = 

2 

PAR  :  = 

7 

PORTAD  := 

6FFD9 

PORTBD  := 

6FF21 

PORTAC 

6FFDB 

PORTBC 

6FFE3 

IDPORT  := 

6FFC3 

ICPORT  :» 

6FFC9 

TCMD  :=  6FFD2 

TDTA  :=  % 

FFD0 

BUS  LOCK  :=6FFF9 

BUS  UNLOCK  : 

=6FF79 

VINTR  :/ 

%(2)000i00ezeeeeeo00 

VIBIT  (= 

12 

ESCAPE  := 

■613 

BS 

608 

LINDEL  := 

%7? 

CR  :  = 

60D 

LF  :  = 

60  A 

TXOFCH  := 

613 

TXONCH 

611 

INSIZ  := 

128  !  INT3UF  SIZE 

OUTSIZ 

128  !  0UTBUF  SIZE 

R3SIZ  := 

256  !  RING  3UFFER 

!  BIT  POSITIONS 

IN  MONITOR  FLAG  ¥030  ! 

TRPMDE  := 

0 

ISTOP  := 

1 

OSTOP 

2 
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-w  .an 


SNDMDE 

:=  3 

LDMDE 

:=  4 

ESC 

•  =  5 

TXMSX 

EXTERNAL 

:=  '46 

EXEC 

LABEL 

P3UFNC 

LABEL 

NMI  RTN 

LABEL 

CCNVW 

PROCEDURE 

P7NTBF 

PROCEDURE 

BRKROU 

LABEL 

NEWLNE 

PROCEDURE 

GETBUF 

PROCEDURE 

GETLNE 

PROCEDURE 

LOATFL 

INTERNAL 

PPOCEDURE 

$S ECTI ON  DATA  DEC 

$A3S  0 

0000 

INTBUF 

ARRAY  [128  BYT 

0060 

OUTBUF 

ARRAY  [128  BYT 

0100 

RNG3UF 

ARRAY  [256  3YT 

0200 

MCZBUF 

ARRAY  [256  BYT 

0300 

EUFADR 

WORD 

0302 

3UFSIZ 

WORD 

0304 

INTPTR 

'WORD 

0306 

OUTPTR 

WORD 

0300 

UNIMP 

WORD 

030 A 

BBKCNT 

WORD 

030C 

NXTPTR 

WORD 

030S 

GET CUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGST 

WORD 

0314 

BREST R 

WORD 

?316 

BREACH 

WORD 

0318 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

031C 

MFLAGS 

WORD 

!  USER  REGISTER  STORAGE  ! 
031S  R0  WORD 


1S1 


t»J  1*3  l*J  t*J 


332«* 

31 

a  CRD 

3322 

R2 

WORD 

3324 

R3~ 

WORD 

0326 

R4 

WORD 

3328 

P.5 

WORD 

032A 

R6~ 

WORD 

032C 

R7~ 

WORD 

332E 

R8~ 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

3334 

Pll 

WORD 

0336 

R12_ 

WORD 

0338 

R13“ 

WORD 

033A 

R14~ 

WORD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

RFC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADE  S TP 

WORD 

GLOBAL 

^SECTION  SUPP0RT2  PROC 
SREL  e 


GLOBAL 

0000  NMI  PRCCELURE 

•  #####*####  ###*##>*  jet##*#  a*#**##*##  a**##*;:*: 

♦  # 

*  NMI  I  NT:  NON-MASKABLE  INTERRUPT  * 

*  HANDLER  FOR  RETURN  TO  * 

*  INITIALIZATION  ENVIRONMENT  * 

*  DUE  TO  ERROR  IN  MCZ  LOAD.  * 

*  v 


###### ajc a)ca*-.*a)! a*##*#  | 


^NTR  y 

0e00  010F  ~  ADD 

0002  0006 
0004  76CA  LDA 

00e6  0000* 

0006  1EA8  JP 

000A  END  NMI 


R15,#6  !  RESTORE  STACK  PTR 

R10 , NMI_RTN (R12 ) 

0K10 
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000A 


ENTRY 

!  LOAD  FILENAME  INTO  RINGBUFFER  ! 


000A 

61 E0 

LD 

R0 , NXTPTR ( R14 ) 

000C 

030C 

O00E 

*109 

LD 

R  9 ,  R  0 

!  SAVE  RINGBUF  OFFS 

0010 

76CA 

LDA 

P.10  ,  GETBUF  (  R1 2 ) 

0012 

012e' 

0014 

1 F  A  0 

CALL 

OR  1? 

!  CONVERT  TC  AD?  ! 

!  RETURNS 

?2  =  ADR  ! 

0016 

SD08 

CLR 

R0 

0018 

2043 

LDB 

RL0.0R4 

!  1ST  3 YTE=NO .  CHR 

!  IN  FILENAME  ! 

001A 

A940 

INC 

R4 

001C 

8109 

ADD 

R9.E0  ! 

UPDATE  OFFSET  ! 

001 E 

6FE9 

LD 

NXTPTRCR14) , 

R9 

0020 

030C 

0022 

BA41 

LDI  -B 

0  R2 ,0R4 , HO 

!  ENTER  FILENAME  ! 

0024 

0020 

!  CONVERT 

LOAD  ADDRESS  TO 

ASCII  ! 

0026 

0BO3 

CP 

E3,nFF?E 

!  CK  FOE  LOAD  4 DR  ! 

0028 

FFFE 

002A 

E610 

JR 

Z,LD  FILE 

!  USE  IMAGED  ADR  ! 

002C 

A032 

LDB 

RH2  ,I?H3 

!  FIRST  BYTE  ! 

002E 

DFDA 

CALR 

HEX  TO  ASCII 

0030 

A124 

LD 

P4.R2 

!  SAVE  MS3'S  ! 

0032 

A  032 

LDB 

F.H2.RL3 

!  GFT  SECOND  PYTE  ! 

0034 

DFDD 

CALR 

HSX  TO  ASCII 

0036 

A125 

LD 

R5,  R2 

!  SAVE  LSB'S  ! 

!  LOAD  ADDRESS  IN  RINGBUFFER  ! 

0038 

61S0 

LD 

R0,NXTPTR(R14)  !  RINGBF  OFFSET 

003A 

030C 

003C 

76CA 

LDA 

R10 .GETBUF ( R12> 

003E 

0128 ' 
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0040 

1FA0 

CALL 

3R10 

!  CONVERT  TO  ADR  ! 

0042 

2?24 

LD 

GR2.P4  ! 

ENTER  MSB'S  ! 

0044 

0325 

LD 

R2( #2) ,R5 

»  ENTER  LSP'S  ! 

0046 

000-2 

0049 

69  £3 

INC 

NXTPTR ( R14) , #4 

!  UPDATE  PTE  ! 

004A 

030C 

LD 

_FILF: 

! 

INSERT 

CARRIAGE  RETURN  I 

004C 

61E0 

LD 

R0, NXTPTR (R 14) 

004E 

030C 

0050 

76CA 

LDA 

R10  ,GETBOF( R12) 

0052 

0129' 

0054 

1FA0 

CALL 

3R1 0 

0056 

6FE0 

LD 

NXTPTR (?.14)  ,  R0 

0059 

030C 

005®. 

0C25 

LD3 

3R2.#^0D 

005C 

0D0D 

r 

LOAD  F 

ILE  WITH  NO  CONSOLE 

PROMPTING  ! 

005E 

2109 

LD 

a 9, n A  AAA  ! 

NC_?ROMPT  SIGNAL  ! 

0060 

AAA  A 

! 

GET  COMMAND  ! 

^062 

76  C  A 

LDA 

R10,GFTLNE(P12) 

0064 

0000* 

0066 

1FA0 

CALL 

0R10 

0068 

7C05 

El 

71  ! 

ENABLE  VECTORED  INT 

006A 

76CA 

LDA 

R10 , LOADFL ( R12 ) 

006C 

0000* 

006E 

IF*  0 

CALL 

OR10  ! 

LOAD  FILE  ! 

0070 

eD98 

CLP. 

R9  l 

DELETE  SIGNAL  I 

0072 

61F1 

LD 

R1 , NXTPTR (R14 ) 

0074 

030C 

0076 

6FS1 

LD 

GETOUT  ( R14) ,  ?.l 

! RESET  PTRS  ! 

007e 

0305 

007  A 

9F08 

RET 

007C 

END  LOAD 

_FILE 

184 


007C 


HEX_T0_A5CII  PROCEDURE 

|  $3:$$  :;:$$$  ^:sjsi)t#  i,;if  jjts'.: * 

if  if 


*  HEX  TO 

ASCII:  CONCERTS 

HEX  ADR  (TWO  * 

* 

4-BIT  VALUES) 

TO  ASCII  (TWO  * 

if 

9-BIT  VALUES). 

V 

i'f 

*  REG  USE 

:  INPUT  RH2  » 

INPUT  BYTE  * 

ENTRY 

007C 

BF2  A 

RLDB 

RL2.RH2  ! 

CONVERT  1ST  NI3BLE 

007F 

DFFD 

CALR 

HEX  ASCII 

0060 

A0A8 

LD3 

RL0.RL2  ! 

TEMP  STORE  BYTE  l 

0082 

BF2  A 

RLDB 

PL2.RH2  ! 

CONVERT  2ND  NIBBLE 

0084 

A082 

LDB 

RH2.RL0  f 

RELOAD  3YTE  f 

HEX  ASCII  : 

0086 

060  A 

ANDB 

PL2 , #%E¥  ! 

GET  NIBBLE  ! 

0088 

0F0F 

008A 

0A0A 

CPB 

RL2 , #%0A  ! 

'0-9'?  ! 

008C 

0A0A 

008E 

E702 

JR 

C , CON V  ASCII 

0090 

000A 

ADEB 

RL2,#7_  ! 

CONVERT  NUMERAL  ! 

0092 

0707 

CONV  ASCII: 

0094 

000A 

ADEB 

RL2,n30  f 

CONV  TO  ASCII  f 

0096 

3030 

0098 

9E08 

RET 

009A 

ENE  HEX_TC_ 

ASCII 

GLOB  AL 

009A 

SNDMCZ  PROCEDURE 

if#  s):  #:,•:***  jje  #  $ 

if 

*  SNDMCZ: 

OUTPUT  CHAR  TO 

SERIAL  PORT  * 

$ 

ONE  (MCZ  SYS). 

* 

# 

* 

*  REG  USE 

:  INPUT  RL0  = 

CHAR  * 

*  RETURN  Z  IF  CHAR  =  CR  * 

#  if 

ENTRY 

!  GET  STATUS  ! 


!  TRANSMIT  RDY?  I 

!  NOT  YET .  ! 

!  YES,  SND  CHP.  ! 


009A 

009C 

3A04 

FFDB 

INB 

RH0, PORTAC 

009F 

A600 

3 ITB 

RH0 , #TXR 

00  A  0 

F6FC 

JR 

Z. SNDMCZ 

00  A2 

3AB6 

OUTE 

PORTAD ,RL0 
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r 

i 


00A4 

FFD9 

72k6 

OA03 

CPB  RL0,#CR 

00A  8 

0D0D 

00  A  A 

SE08 

RET 

00AC 

END  SNDMCZ 

GLOBAL 

30AC 

SNDMSG  PROCEDURE 

$ 

SNEMSG:  SENE  MSG  SPECIFIED  TO  CONS  * 
(P0RT2).  FIRST  BYTE  OF  MSG  * 

IS  TEE  DECIMAL  LENGTH  IN  * 

WORDS.  * 

* 

REG  USE:  INPUT  P.2  =  MSG  ADDS  * 


ip#*##*#*#:****** t 

ENTRY 


00AC 

34E1 

LDA 

R1 .R14U0UT3UF) 

00  A  E 

0080 

00B0 

8D08 

CLR 

P0 

00B2 

2028 

LDS 

RL0.OR2  !  GET  BYTE  COUNT  ! 

00B4 

8101 

ADD 

R1.R0 

00B6 

33E1 

LD 

F.14U0UTPTE)  ,R1 

00B8 

0306 

00  BA 

A920 

INC 

32  !  SETUP  FOR  TRANSFER  ! 

00PC 

34E1 

LDA 

R1,R14(#0UTBUF) 

003E 

0080 

oeco 

BA21 

LDIEB 

031,032,30  !  TRANSFER  TO  CUTBUF 

00C2 

0010 

00C4 

34CA 

LDA 

R10,R12(#PBUFNC) 

00C6 

0000* 

00C8 

1EA8 

JP 

0R10  !  OUTPUT  TO  CONS  ! 

00CA 

END  SNDMSG 

* 

# 

* 

* 

* 

$ 
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GLOBAL 

00CA  CC 'll  NT  PROCEDURE 

*  £ 

*  CCNINT:  CONS  (P0RT2 )  INPUT  I  NT  HDLR  * 

*  ROUTINE,  *HI CH  GET S  REC  CHR  * 

*  FROM  USART.  REC  CHR  IS  CK  * 

*  FOR  TXOFCH  OR  TXCNCH,  AND  * 

*  MFLAGS  ADJUSTED  4  CCOFDINGLY  * 

*  TO  SIGNAL  PROCEDURES.  * 

*  * 


<t  ft####*#  #5*4!  **####  J*#  f 

ENTRY 


00CA 

93  ?0 

PUSH 

GR15.R0 

0£CC 

93F1 

PUSH 

0R15.R1 

O0  CE 

93F2 

PUSH 

(AR15.R2  !  SAVE  WORK  KEGS  ! 

00D0 

93FE 

PUSH 

9R15.R14 

£0D2 

?D15 

LDCTL 

R1.PSAP07F  !  DATA  AREA  ADR  ! 

00D4 

21 1 E 

LD 

R14.0R1 

!  GET  CHAR 

AND  CHECK  FOR  TXCFCH  OH  TXCNCH  f 

00DG 

3  A  94 

I  \'B 

P.L1 , POETBD  !  SET  US  4RT  DATA  ! 

00D8 

FFEl 

00DA 

A297 

RESB 

RL1,#PAR  !  CLR  PARITY  EIT  ! 

oeDc 

6?F0 

BIT 

MFLASS  (R14)  ,#TR?^DE 

00DE 

031C 

!  TRANSPARENT  "ODE  ! 

00E0 

EE18 

JR 

NZ,?UTCHR  !  YES . ! 

30S2 

0A09 

CPB 

RLl,#TXONCH  l  NO,  CK  FOR  TXONCK 

00E4 

1111 

C0E6 

FE03 

JR 

NZ, AGAIN  !  NO . ! 

00E8 

63E2 

F.SS 

MFLAGS (R14) , #03 TOP  !  RESET  TO,  ! 

00EA 

031C 

!  RESUME  OUTPUT  ! 

00EC 

E818 

JP. 

FINISH 

AGAIN  s 

£0EE 

0AC9 

CPB 

RL1,#TXCFCH  !  CK  FOR  TXCFCH  ! 

30F0 

1313 

00F2 

EE03 

JR 

NZ.AGAIN2  !  NO .  ! 

00F4 

65E2 

SET 

MFLAGS (R14 ) , #GSTC?  !  STOP  OUTPUT 

00F6 

031C 

00FS 

E812 

JR 

FINISH 

!  CHECK  FO^ 

ESCAPE  CHARACTER  ! 

AGAIN2: 

00FA 

0A09 

CPB 

RL1 , ^ESCAPE 

?0FC 

1B13 

00FE 

EE09 

J? 

NZ  ,  PUTCHR  !  NO . ! 

0100 

67E3 

BIT 

MFLAGS (R14) ,#SNDMD3  !  YES,  CK  SND 

0102 

031C 

18? 


71  f  4 

FE03 

JR 

NZ.ESC?  !  YES . 

.  .  •  ^ 

0136 

0108 

67  E4 
031C 

PIT 

MFLAGS ^R14) ,#LDVDE  !  NO, 

CX  LE  .-IT 

010A 

E603 

Jr. 

SSCP: 

Z.PUTCH?  !  NO  ! 

717C 

010E 

65E5 
031 C 

SET 

MFLAGS ( R14 ) , tFSC  !  SET 

ESCAPE  B I 

0110 

E806 

JR 

!  °PIM« 
PUTCHR : 

FINISH 

EY  SAVE  CHARACTER  ROUTINE  ! 

0112 

0114 

31E0 

030C 

LD 

?.0,R141#NXTPTR) 

0116 

DFF8 

CALR 

GETBUF  !  GET  RNGBUF 

A  DDE  ! 

0113 
01 1A 

33F0 

030C 

LD 

R14( tfNXTPTR ) ,R0 

me 

2E29 

LDB 

FINISH: 

@E2,?L1  !  PUT  CHE  IN 

RNGBUF  ! 

711E 

97FE 

POP 

314.PP15 

0120 

97F2 

POP 

R2.0R15 

0122 

97F1 

POP 

R1  ,(?R15 

0124 

0126 

0128 

0128 

97F0 

7B00 

POP  R0.0R15  !  RESTORE  «ORK  REGS  ! 

IRET 

END  CONINT 

GLOBAL 

GETBUF  PROCEDURE 

Xfi  # 

*  GETBUF :  DETERMINES  POSITION  IN  * 

*  RlN&BUFFER  TO  PUT  OR  GET  * 

*  NEXT  CHAR .  * 

if.  n' 

*  REG  USE;  INPUT  R0  =  CURRENT  INDEX  # 

*  RETURN  R0  =  NEW  INDEX  * 

*  R2  =  ADR  OF  RNGBUF  * 

*  * 


ENTRY 


012e 

93FD 

PUSH 

0R15.R13 

012  A 

A 102 

LD 

E2,R0 

012C 

A  900 

INC 

R0  ,  HI 

! 

INC  PTE  ! 

012E 

0B00 

CP 

EC  ,#R3S I Z 

! 

ft RAP  AROUND  1 

0130 

0100 

0132 

EE01 

JR 

NZ  , GB 

0134 

8D08 

CLR 

R0 

I 

RESET  INDEX  ! 

0136 

34ED 

GB :LDA 

R13,Rl4( HRNGBU 

F )  !  NSW  ADR 

0136  0100 

013A  61D2  ADD 


R2.R13 


013C  97  FD 
013E  9F09 
014? 


PO? 

FET 

END  GETBUE 


R13.0R15 


GLOBAL 

014?  MCZHND  PFOCEDUFE 

I  #*****#«##**# s;-.#**#**#***#:*###!;:#*****#**# 

•v 
*1* 

*  MCZEND:  MCZ  (SERIAL  PCRT1)  INPUT 

*  INTERRUPT  HANDLER  ROUTINE 

*  WHICH  GETS  RECEIVED  CHAR 

*  PROM  US ART,  AND  STORES  IN 

*  MCZBUF. 


I*###****#*#*# *$*#*#*#«*##***#*****###:)::!:*  I 

ENTRY 


0140 

93  ?0 

PUSH 

9R15.R0 

0142 

93F1 

PUSH 

OF  15, FI 

0144 

93F2 

PUSH 

OR  1 5 ,  R  2 

!  SAVE  WORK  REGS 

0146 

93FE 

PUSH 

0  R 1 5  ,  R 1 4 

0148 

7D15 

LDCTL 

Rl  .PS  APOFF 

014A 

2115 

LD 

R14.0R1  ! 

DATA_AR EA  ADR  ! 

!  GET  CHAR 

FROM  MCZ  ! 

014C 

3A94 

I  MB 

RL1 , PORTAD 

!  GET  CHR  I 

014E 

FFD9 

0150 

*297 

RESB 

RL1,#PAR 

!  RESET  PARITY 

0152 

31E0 

LD 

F.0  ,F.  14  ( HMCZPUT  ) 

0154 

0310 

0156 

DFF9 

CALR 

GMCZAD 

!  GET  MCZBUF  ADR 

0158 

33E0 

LD 

R14(#MCZPUT) 

,  P-0 

015A 

0310 

015C 

2E29 

LDB 

0R2.RL1  ! 

SAVE  CHAR  ! 

IRESTORE  WORE  REGS  f 

015E 

97  FS 

POP 

R14.0R15 

0160 

97F2 

POP 

F2.3R15 

0162 

97  FI 

POP 

Rl  ,<?R15 

0164 

97F0 

PCP 

R0  ,0R15 

0166 

7B00 

I  RET 

0168 

END  MCZHND 

leg 


■ib  V 
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GLOB  -L 

GMCZAD  PROCEDURE 

I  if  if  if  £ if  if  i~.  if  £  .-;  *  *.•  #  5;:  j>:  *  5? #  jjt  jjc  j{s  sjc  *  if  -if  a;;  if  if 

*  5j; 

*  GMCZAD :  GET  NEXT  ADA  0?  MCZ  RUFFE?  * 

*  TC  STORE  OR  GST  CHARACTER.  * 

*t  if 

*  l-.EG  USE:  INPUT  P.0  =  PT.r-  IN  MCZBUF  * 

*  RETURN  RZ  =  NEW  PTR  IN  EUF  - 

*  n2  =  BGN  OF  MCZBUF  * 


*#a)t>;:ji:jjt$a**£**>jt  3?ssCe i;--s#e JCes!e>9e *#**### S:jie###:j5a):*8;::i!##*  f 

ENTRY 


0iee  93 fd 

PUSH 

0R15.R13 

016A  A102 

LE 

R2  ,R0 

016C  A9Z0 

INC 

?.0,#1 

016F  0B00 

CP 

R0,#RESIZ 

!  WRAP  AROUND?  ! 

0170  0100 

0172  EE01 

JR 

NZ ,GBZ 

0174  9D0S 

CL?. 

R0 

!  RESET  OFFSET  ! 

GBZ: 

0176  34FD 

LDA 

R13, R14( *MCZBUF )  !  GET  ADR 

0178  0200 

017A  31D2 

ADD 

R2  ,R13 

017C  97VD 

POP 

R13.0R15 

017E  9E08 

PET 

0130 

END  GMCZAD 

END  SUPP0HT2 
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AD- A 109  552  NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA  f/9  9/2 

SASS  HARDWARE  ARCHITECTURE  AND  DEVELOPMENTAL  MONITOR. (U) 

JUN  01  0  S  BAKER 

UNCLASSIFIED  NPSS2-B1-016 _ NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURLAU  Of  STANDARDS -1%3-A 


5.  SUPP0RT3  MODULE 


Z6000ASM 
LOC  OBJ 


.02 

COTE  STMT  SOURCE  STATEMENT 

1  SUPPOFT3  MODULE 
$LISTON  $TTY 


Ijt 

*  SUPP0RT3  MODULE:  MODULE  THREE  FOR 

*  SECONDARY  STORAGE  PRIMITIVES 

*  FUNCTIONS  SUPPORT.  STRICTLY 

*  HARDWARE  DEPENDENT;  SHOULD 

*  MEET  STORAGE  DEVICE  REOUIRE- 

*  MENTS  FOR  INTERFACING. 

* 

*  NOTE:  DUPLICATE  OF  MONITOR  LOAD  CMD 

*  MODULE .  “  * 

*  * 
$******######  Sc**#*##**####!**^!**:*#####*##*  j 


CONSTANT 

RXR  :  = 

2 

TXR  :  = 

0 

PAR  :  = 

7 

PORTAD  := 

*FFD9 

PORTED  := 

*FFE1 

PORTAC 

*FFDB 

PORTBC  := 

%FFE3 

IDPORT  := 

*FFC3 

ICPORT  := 

%FFC9 

TCMD  := 

*FFD2 

TDTA  := 

%F?D0 

BUS  LOCK  := 

*FFF9 

BUS "UNLOCK 

:=%FFF8 

VINTR  := 

* ( 2 ) 000 10 0000 0000000 

VISIT  := 

12 

ESCAPE  :  = 

%1B 

BS  :  = 

*09 

LINDEL  := 

*7F 

CR  :  = 

*0D 

LF  :  = 

*0A 

TXOFCH  := 

*13 
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ft  ft  ft  ft  *  a  *  ft  * 


TXONCH 

=  %11 

INSIZ 

=  128 

!  INT3UF  SIZE  ! 

OUTSIZ 

=  128 

!  OUTBUF  SIZE  ! 

RBSIZ 

=  256 

!  RING  BUFFER  SIZE  ! 

!  BIT  POSITIONS  IN  MONITOR  FLAG  WORD  ! 

TRPMDE 

=  O 

ISTOP 

=  1 

OSTOP 

=  2 

SNDMDE 

=  3 

LDMDE 

=  4 

ESC 

=  5 

TXMSK 

=  %6 

COMDS 

.=  12 

EXTERNAL  I 

5RNT3F 

PROCEDURE 

EXTERNAL  GETNXT 

PROCEDURF 

EXTERNAL 

EROR 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERN  AL 

GET ADP 

PROCEDURE 

EXTERNAL 

SMC ZAD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERN  4L 

CONVERT 

PROCEDURE 

EXTERNAL 

PBUFNC 

LABEL 

EXTERNAL 

5NDMSG 

PROCEDURE 

EXTERNAL  ( 

:onvw 

PROCEDURE 

INTERNAL 

$S  ECT I  ON  DATA  DEC 
$A3S  0 


0000 

INTBUF 

ARRAY 

[i2e 

BYTE] 

0080 

OUTSUF 

ARRAY 

[128 

BYTE] 

0100 

PNG3UF 

ARRAY 

[256  BYTE] 

0200 

MCZBUF 

ARRAY 

[256 

BYTE] 

0300 

BUFADR 

WORD 

03e2 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

eseE 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BPKSTR 

WOF.D 
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0316 

BRKADR 

WORD 

031? 

TMPSP 

WORD 

031 A 

TMPFC1* 

WORD 

031C 

MFLAGS 

WORD 

!  USES  REGISTER  STORAGE  I 

P31E 

R0 

WORD 

0320 

R 1 

WORD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

032S 

R5 

WORD 

032  A 

E  6 

WORD 

032C 

R7 

WORD 

0322 

RS 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

P.12 

WORD 

0338 

R13 

WORD 

033A 

R14 

WORD 

033C 

P 15 

WORD 

033E 

RPC 

WORD 

0340 

RFC  _ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR_STR 

WORD 

tSFCTI ON  LOAD  PROC 

$REL  0 

GLOBAL 

0000 

FNAM5  PROCEDURE 

*  FNAME: 

RESETS  TWO  PTRS  TO  MCZ3UF  * 

* 

AND  CHECKS  FOR  FILENAME.  * 

5«* 

ENTRY 

0000 

4DE8 

CLR 

MCZGET'R14) 

0002 

0312 

0004 

4DE8 

CLR 

MCZPUT (R14)  !  RESET  BUIFEF 

0006 

0310 

0008 

34CA 

LDA 

R10, R12( WGETNXT ) 
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009A 

0000* 

000C 

1FA0 

CALL 

OR  10 

!  SKIP  CMD  ARG 

i 

P0PE 

0A09 

C  ?B 

RL?,*'A ' 

3013 

4141 

0012 

2711 

JR 

C ,  DUN 

0014 

0A09 

C?3 

RLP,#'Z'*1 

0016 

5B5B 

0018 

EF0E 

JR 

NC  .DUN 

!  1ST  CHR  IN  !A 

..Z)  ! 

0014 

76  C  A 

LDA 

R10,GETNXT( R12 ) 

001C 

0000* 

301E 

1FA0 

CALL 

OR  10 

!  SKIP  TO  NEXT  . 

ARG  ! 

0020 

2607 

JR 

Z ,  NO  ADR 

!  NC  NEXT  ARG  ! 

0022 

76CA 

LDA 

R10, GETADR( R12 ) 

0024 

0000* 

0026 

1FA0 

CALL 

0R10 

!  GET  USER  SPECIFIED  ! 

1  ADDRESS  t 

0028 

A 13B 

LD 

R11.R3 

1  SAVE  USER  ADR 

I 

002  A 

6FE3 

LD 

ATR_STR(R14) 

,R3 

002C 

0344 

002E 

9E08 

RET 

NO  ADR: 

0030 

210E 

"LD 

Rll,#tFFFS 

!  SIGNAL  TO  USE 

KCZ  ! 

0032 

FFFE 

!  ADDRESS  ! 

0034 

9E08 

RET 

DUN: 

0036 

8D98 

CLR 

R9 

0038 

34CA 

LDA 

R10 , R12 ( # 2R0R ) 

003A 

0000* 

003C 

1EA8 

JP 

OR  10 

!  ERROR,  RTN  TO 

EXEC  ! 

0032 

END  FNAME 
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GLOB  c  L 

003?  CMDPAS  PROCEDURE 

*  -t 

*  CMEPAS :  LOAD  CMD  PASSING  MECHANISM  * 

*  SENDS  'B;  '  PLUS  CONS  CMD  * 

*  LINE  TO  MCZ  AND  CKS  RESPONSES  FOR  * 

*  GOOD  Z80  PROGRAM  LOAD.  * 

*  * 

*  REG  USE:  RETURN  NZ  IF  Z80  LOADED  * 

*  Z  IF  NOT  * 

*  * 
####### ^fc^##****####*#**#*:****###***  | 


ENTRY 


003E 

67E5 

BIT 

MFLAGS { R14 ) , #ESC  !  CK  FOR  ESCAPE  ! 

0040 

031 C 

0042 

E602 

JR 

Z.GCMD 

0044 

8D41 

SETELG 

Z 

0046 

9E08 

RET 

GCMD : 

0048 

C242 

LDB 

?.H2,#'3' 

004A 

CA3B 

LDB 

RL2, # ' ; ' 

004C 

6FE2 

LD 

0UTBUF(R14) ,R2 

!  LOAD  INIT  '3?  ' 

^04E 

0080 

! 

FOR  BRIEF  MODE  ! 

0050 

76E2 

LDA 

R2,0UTBUF(R14 ) 

0052 

0080 

0054 

A921 

INC 

R2,#2 

0056 

76E1 

LEA 

R1,INTBUF(R14) 

0058 

0000 

005A 

2100 

LD 

F0,#%40  ! 

LD  CMD  IN  CUT3UF  ! 

005C 

0040 

005E 

BB11 

LDl  R 

9R2.0R1 ,R0 

0060 

0020 

0062 

76E1 

LTA 

R1  ,0UTBUF(R14) 

0064 

0080 

0066 

0101 

ADD 

HI ,  #%80 

0068 

0080 

006  A 

6FE1 

LD 

OUTPTR ( R14 ) ,R1 

006C 

0306 

006E 

rE36 

CALR 

CUTSTM  ! 

OUTPUT  BUFFER  ! 

0070 

DFE7 

C  ALE 

SKIPLN  ! 

SKI?  MCZ  ECHO  ! 

0072 

DFD4 

CALR 

MCZCOM  ! 

WAIT  RESPONSE  ! 

0074 

0A09 

CPB 

RL1,#'B' 

0076 

4242 

0078 

EE02 

JF. 

NZ.LDSTAT 

007A 

DFEC 

CALR 

SKIPLN  I 

SKIP  MCZ  ECHO  ! 

007C 

DFD9 

CALR 

MCZCOM 

!  aAIT  RESPONSE  ! 

!  VERIFY  LOAD  STATUS  ! 

LOST  AT: 

0075 

0A09 

CPB 

RL1 ,#'9' 

!  TEST  LEGAL  ! 

0080 

3939 

0082 

F60E 

JR 

Z, RECACK 

!  ACKNOWLEDGEMENTS 

0084 

0  A09 

CPB 

RL1,#'0' 

0086 

3030 

0088 

E603 

JR 

Z, RECACK 

!  RSC  GOOD  ACK  ! 

008A 

0A09 

CPB 

RL1 , # '7  ' 

00ec 

3737 

008E 

5608 

JR 

Z, RECACK 

!  NO  ACKNOWLEDGEMENTS  RECEIVED  ! 

ERMSG: 

009 0 

DFD9 

CALF 

RECMSG 

!  GET  MCZ  MSG  ! 

0092 

34C  A 

LDA 

R10,R12(#SNDCHR) 

0094 

0000# 

0096 

IF  *0 

CALL 

(AR10 

!  SEND  TO  CONS  ! 

0098 

0A08 

CPB 

RL0 , #LF 

009A 

0A0A 

009C 

9E06 

RET 

Z 

!  DONE  ! 

0095 

F6F8 

JR 

EF.MSG 

I  ACKNOWLEDGE  RECEIVED 

! 

RECACK: 

00A0 

8D43 

RESFLG 

Z 

!  RETURN  NZ  ! 

00A2 

9E08 

RET 

00A4 

END  CMOPAS 

GLOBAL 

SKPB  LABEL 

00  44 

SKIPLN  PPOCEDUP.E 

J $**$*#*****#**#$**####***#****#****#*$#* 

* 

*  SKIPLN: 

SKIP  RECEIVED  LINE  FROM  * 

* 

MCZ?  RETURN 

FIRST  CHAF.  OF  * 

NEXT  LINE. 

»•# 

*r 

*  REG  USE 

:  RETURN 

RL1  =  1ST  CHR  # 

AND  NZ  IF  ESC  * 

* 

# 

ENTRY 

00  A4 

UFE3 

CALR 

RECMSG 

!  SKI?  OVER  LINE  ! 

00A6 

0A08 

CPB 

RL0,#CR 

!  THRU  CR.L?  ! 

00A8 

0D0D 

00.*  A 

EEFC 

JR 

NZ, SKIPLN 
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00 AC  2101 
00A.F  3000 


SKPB : 

LB  ?.l,#i;3000  !  DELAY  FACTOR  ! 


!  MAIN  LOOP 

FOR  RECEIVING  CHAR  ! 

LOOP1: 

0050 

61E0 

LD 

R0,MCZGET^R14) 

00P2 

0312 

0054 

43E0 

CP 

R0  .MCZPUT (R14 )  !  TEST  FOR  REC  CHR 

00B6 

0310 

00ES 

5E03 

JR 

NZ.RECHP  I  YES .  ! 

00BA 

A510 

EFC 

Rl,#l  !  NO,  WAIT  AWHILE  ! 

005C 

FEF9 

JE 

NZ.LOOP1 

00BE 

9506 

RET 

Z  I  FORCED  EOL  ! 

RECHR : 

00C0 

DFFB 

CAL?. 

MCZCOM 

00C2 

0A09 

C?3 

RL1,#'  '  !  CK  1ST=PRNT  CHR  ! 

00C4 

2020 

00C6 

9F0D 

RET 

PL 

00C8 

DFF5 

CALR 

P.ECMSG 

00CA 

E8F0 

JR 

SKP3 

00CC 

END  SKIPLN 

00CC 

MCZCOM  PROCEDURE 

| 

* 

*  MCZCOM: 

LOOPS  WAITING  FOR  RECEIVE  * 

* 

CHAR  FROM  MCZ  3Y  SEEING  IF  * 

MCZBUF  GETS  CHAR.  DOES  * 

ADVANCE  POINTER.  * 

*  REG  USE 

3 et 

:  RETURN  RL1  =  CHR  * 

* 

ENTRY 

00CC 

61E0 

LD 

R0,MCZGET(R14)  !  CHECK  MCZBUF  ! 

00CE 

0312 

00D0 

4BE0 

CP 

R0,MCZPUT(E14)  !  POINTERS  ! 

00D2 

0310 

00D4 

E6F3 

JR 

Z, MCZCOM  !  WAIT . ! 

00D6 

34  C  A 

LDA 

R10,R12(*GMCZAD) 

00D8 

0000* 

00DA 

1FA0 

CALL 

OR  10  l  GET  CHAR  FROM  3UF  ! 

00DC 

2029 

LD3 

RL1.0R2 

00DE 

9E06 

RET 

0050 

END  MCZCOM 

oofo 


RECMSG  PROCEDURE 

|  i)^#*#***:*#**#  *«*#$*:#  **##$**  **####*####* * 
'  *  * 

*  RECMSG :  LOOPS  W'lTING  FOE  CSC  CHP  * 

*  FROM  MCZ .  GETS  CHAR  AND  * 

*  DO  NOT  ADVANCE  BUF  PTR .  * 

*  # 

*  REG  USE:  RETURNS  RL0  =  CER  * 

#  * 

ENTRY 


00E0 

61E0 

LD 

R0  .MCZGET (214) 

00E2 

0312 

00S4 

4BE0 

CP 

R0  , MC ZPUT (  F.l  4 )  !  C5  FOP  /EC 

00E6 

0310 

00S8 

E6FB 

JR 

Z,  RECMSG  !  *  A  IT .  ! 

00SA 

34C  A 

LDA 

R10 , R12 ( rfOMC  ZAD  j 

00SC 

0000* 

00EE 

1FA0 

C  'LL 

OR  10  !  GET  1ST  CHAR  ! 

00F0 

6FS0 

LD 

MCZGET  ( F.l  4) ,  R0  ?  RESTORE  PTR 

00F2 

0312 

00F4 

2029 

LDB 

P.L0.OR2  !  RTN  CHAP.  ! 

00F6 

9E08 

RET 

00F8 

END  RECMSG 

GLOBAL 

OUTSTM 

LABEL 

00F8 

OUTLNE 

PROCEDURE 

*  OUTLNE 

:  OUTPUTS  A  LINS  OF  CHAR  FROM  * 

* 

0UT3UF  TO  MCZ  WITH  CR  AT  * 

* 

3*5 

END.  * 

*  OUTSTM 

:  OUTPUTS  A  LINS  OF  CHAR  W/CR  * 

* 

ENTRY 

00Fe 

61F2 

LD 

R2 ,OUTPTR ( R14 ) 

00FA 

0306 

00FC 

0C25 

LDB 

3R2 , #CR  ! STORE  CR  IN  BUF 

00FE 

0D0D 

0100 

69E0 

INC 

OUTPTR (R14 ) ,#1  !  INC  PTR  f 

0102 

0306 

!  NO  CE  ENTRY  POINT  ! 

OUTSTM: 

0104 

76F1 

LD* 

R1.0UTBUFU14) 

0106 

0080 

!  MAIN  LOOP  ! 
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OVRAON  : 


3108 

2018 

LDB 

RL0.0E1 

010A 

A91 3 

INC 

n 

?10C 

340  A 

LD  A 

?.10,R12(#S'IDMCZ 

> 

010? 

0000* 

0110 

1FA0 

CALL 

0R10  ! 

SND  CHR  TO  MC Z  ! 

0112 

F603 

JR 

Z, FINIS 

0114 

4BE1 

CP 

R1  ,OUTPTR ( R14 ) 

0116 

0306 

0118 

E7F7 

J3 

C , CVRAGN  ! 

CK  IF  3JF  EMPTY  ! 

!  FINISHED, 

RESET  OUTPTR ( R14  ^  AND  BLANK  OUTBUF  ! 

FINIS: 

011* 

76E2 

LDA 

R2  , OUTBUF ( R14 ) 

!  RESIT  POINTER  ! 

011C 

0080 

011F 

6FE2 

LD 

OUTPTR (R14) ,R2 

0120 

0306 

3122 

2100 

LD 

R3 ,#OUTS I Z/2 

0124 

0043 

0126 

A800 

DEC 

R0,#1  ! 

SET  COUNT  ! 

3128 

4DE5 

LD 

OUTBUF ( Si 4} ,  # ' 

'  !  LOAD  COUNT  ! 

012A 

0080 

0120 

2020 

312? 

76E2 

LDA 

R2  .OUTBUF ( R14 ) 

0130 

0080 

0132 

*121 

LD 

R1.R2 

0134 

A911 

INC 

?.l  ,ft  2 

0136 

8321 

LDIR 

QR1,QR2,R0  t 

CLR  BUFFER  ! 

0138 

0010 

013A 

9E08 

RET 

013C 

END  OUTLNE 
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013C 


ABORTM  LA EEL 

GO  DP  A I  LABEL 

BADPAK  PROCEDURE 


* 

# 

* 

BADPAK: 

SENDS  F.ESEND  SIGNAL  ('?') 

# 

TO  *CZ  FOR  BAD  CKSUM  OR  REC 

* 

# 

NON-ASCII  CHR. 

* 

* 

•!* 

ABORTM : 

SENDS  ABORT  SIGNAL  ( '9') 

# 

# 

*HEN  USER  SELECTED . 

j# 

* 

GODPAK: 

SENDS  ACK  SIGNAL  ('0')  FOR 

# 

RECEIPT  OF  GOOD  PACKET. 

* 

* 

ENTRY 


313C 

C637 

LDB 

RL0,#'7'  ! 

LD  RESEND  SIG  ! 

013E 

E803 

JR 

ABORTM: 

CUTALL 

0140 

C839 

LDB 

RL0,#'3'  ! 

LD  ABO.1T  SIG  ! 

2142 

E801 

JR 

GODPAK: 

CUTALL 

0144 

C830 

LDB 

OUTALL: 

RL2,#'0'  ! 

LD  RFC  OK  SIG  ! 

0146 

0146 

6FE8 

0080 

LDB 

0UT3UF  ( ?.  14 ) ,  RL0 

014A 

014C 

76ED 

0080 

LDA 

R13,0UTBUF(R14) 

014E 

A9D0 

INC 

R13,#l 

0150 

0152 

6FED 

0306 

LD 

OUTPTR (R14 ) ,R13 

0154 

D02F 

CAL? 

OUTLNS  ! 

S^ND  MCZ  SYSTEM 

0156 

0158 

015A 

D05A 

9S08 

CALR 

RET 

END  EADPAK 

SKIPLN  ! 

SKI?  ECHO  ! 
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'■‘fiT&mi--  '  ■  i 


*  «■ 


015A. 


1 


GLOB  ’ L 

GETACK  PROCEDURE 


j  *5;:#. t**- 

•>#  »*#  **#  %•*  ***  ■  *» *i«  «i«  «u  •*#  J# 

v »,•  V  '(•¥  A* v 

* 

* 

*  GETACK: 

RECEIVE  AND  INTERPRET  ACK  * 

FROM  MCZ. 

GOOD  ACK  =  '0'  * 

BAD  ACK  =  '7'  * 

* 

ABORT  =  '9'  * 

afic 

*  REG  USE 

:  RETURN 

Z , NC  IF  GOOD  ACK  * 

«v> 

*** 

NZ.NC  IF  BAD  ACK  * 

NZ , C  IF  ABORT  * 

* 

s’,;##**#*  sit  jfc#  #  *  *  sji  #  jje  * 

ENTRY 

situ 

0043 

CALF. 

MCZCOM 

!  GET  CHR  ! 

015C 

0A09 

CP3 

RL1 ,#'d' 

!  CK  FOR  ACK  ! 

715F 

3030 

oieo 

EE04 

J- 

NZ  ,N  ACK 

!  NO .  ! 

0162 

F060 

C  ALP. 

SKIPLN 

!  YES,  RSC  ACK  ! 

5*164 

3041 

SETFLG 

7 

0166 

6D83 

ETSFLG 

C 

016? 

9E08 

RET 

!  CK  FOP  '7 

'  ND  '9' 

NON -ACKNOWLEDGEMENTS  ! 

MACK: 

016A 

0  A09 

CPB 

RL1,*'7' 

!  CK  FOR  RESEND  ! 

*16C 

3737 

0163 

EE04 

J?. 

N2 ,  ABRT 

!  NO.  .  .  .  ! 

0170 

C067 

CALR 

SKIPLN 

*172 

3T!43 

f FSFLG 

Z 

31*4 

3D33 

RESFLG 

n 

O 

0176 

av0Q 

PET 

!  CHECK  FOE 

A3 OFT  ! 

ABRT : 

017? 

0A09 

CPB 

RL1,#'9' 

017  a 

3939 

01*C 

F602 

JR 

Z, ENDIT 

!  YFS ,  ABORT...  ! 

017E 

3050 

CAL?- 

RECMSG 

!  GET  ANOTHER  CHR  ! 

0130 

70  fr; 

JR 

GETACK 

!  TRY  AGAIN.  ...  ! 

ENDIT : 

0182 

T070 

CALR 

SKIPLN 

0134 

9043 

P.ESFLG 

Z 

3166 

6081 

SETFLG 

C 

0158 

9E09 

RET 

013* 

END  GETACK 
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*  a 


3 1 « A  LINRCT  PROCEDURE 

f  I*#####  Jit##*:#  lit###*# 

f-  * 

*  LINRCT:  RECEIVES  LINE  OF  CHAR  TROM  * 


* 

MCZ  AFTER  RECEIPT  OF  * 

* 

AND  STORES  IN  INTBUF,  ADDING* 

CP  AT  END  AND  FILTERING  CUT  * 

* 

CONTROL  CH'R ACTEFS .  (<20F)  * 

afis 

!  TRUNCATES  AFTER  P0  CHAR)  * 

3N  TF.  Y 

f  WAIT  FOR 

ASCII  /  ! 

"IS-* 

DC56 

C  »L? 

PECMSG 

01SC 

0A08 

CPB 

RL0, *'/' 

01 CE 

2F2F 

0197 

FE^C 

JR 

NZ, LINRCT  !  WAIT  ! 

f  ncrjiM  STORING  CHARACTERS  ! 

0192 

76E4 

LDA 

R4 , 1 NTBUF ' R14 ) 

0194 

00*0 

0196 

CB50 

LDB 

RL3,#80  ! SET  LINF  LENGTH  ! 

!  ST OR 7  CHAR  IN  INTBUF  ! 

LOPSTR  : 

019P 

D05D 

CALR 

RECMSG  •  GET  CHAR  ! 

019A 

2E48 

LP3 

0R4.EL0  !  STCRE  1 

019C 

^03 

CPB 

?.L0,#CP.  !  OK  FOR  END  ! 

019E 

<*D0D 

01A0 

EE02 

JR 

NZ  .SKPSOM  !  GOT  CHAR..  ! 

01  ’2 

P07C 

CALT 

SKP3 

01 A  4 

9E08 

RET 

! CONTROL  C: 
SKPSOM: 

EAR  FILTERED  AND  DEC  LINE  COUNTER 

31  *6 

CPB 

RL0,#'  ' 

01A9 

2023 

21  * » 

F7F6 

J  R 

C.LCPSTR 

01  AC 

A940 

INC 

R4,#l  !  GOOD  CHAR  ! 

01 AE 

F30C 

D3JNZ 

RL3, LOPSTR  !  DEC  COUNT  ! 

!TRUNC  »TE, 
LCPOVR: 

TOO  MANY  CHAR  ! 

0130 

D069 

CALR 

RECMSG 

0132 

0A.0S 

CPB 

DL0,#CP  !  LOOK  FOF.  CR  ! 

0134 

0D0D 

0136 

EEFC 

JR 

NZ .LOPOVR 

0138 

76EI) 

LDA 

R13, I NTBUFf  R14  ) 

01BA 

0000 

31  ?C 

010D 

ADD 

R13, #80 

013* 

^050 

01C0 

2ED8 

LDB 

0R13.EL0 
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» 


nc2 

qtj  a 

R7T 

"1C4 

2ND  LIN?. CT 

01 C4 

UNPACK  PROCEDURE 

j  $##  **$*$«:* 

*  UNPACK: 

UNPACKS  RECEIVED  PACKETS  * 

JU 

V 

FROM  MCZ  IN  INT3UF  AND  * 

# 

LC*DS  IN  SPECIFIED  MEMORY  * 

* 

AREA.  ASCII  CHAR  ARE  CON-  * 

❖ 

VERTED  TO  HEX  VALUES.  * 

* 

*  FEG  USE 

:  INPUT  F.H3  =  #3YTE  DATA  * 

##**#*#*#* 

FNTRY 

01C4 

A03C 

LDF 

RL4,5H3  !  SAVE  COUNT  ! 

me  6 

77P7 

CAL? 

CCNVAD  !  CONV  START  ADR 

!  CH^CK  F07. 

US E?  ENTERED  ADD5  FO5  LOAD  ! 

0108 

070? 

CP 

Rll , #"FFFE 

n  ^  n  a 

EFFF 

01CC 

E601 

Z , US  E  MC  Z  ADR 

31CF 

A 171 

LD 

Rl.Rll  !  USER  SPECIFIED 

USF  MCZADR: 

31D0 

7672 

EDA 

R2,INTSUF(R14) 

01P2 

0000 

*1134 

«927 

INC 

R2,#3 

CANDS: 

01D6 

TF7r 

CALR 

TRNHEX  !  CONVERT  2-ASCII  C 

01D8 

22  IS 

LDB 

0P 1 , R L 7  !  STOFE  IN  MEM  ! 

01DA 

A913 

INC 

R1  ,#1 

0irc 

FC04 

DPJNZ 

RL4, CANDS  !  CONV  AND  STORE  AL 

!  UPDATE  USER  SPECIFIED  ADDRESS  ! 

dide 

0703 

C? 

ail,*%FF?S 

017* 

0122 

’■'601 

JF. 

Z , NO  UPDATE  !  USE  MCZ  ADR  ! 

0174 

A113 

LD 

R11.R1  !  UPDATE  USSR  ADR 

NO  UPD’TE: 

01  26 

9208 

'RET 

0178 

END  UNPACK 
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TRNHEX  PROCEDURE 

I  j{s sje a^s sjs ail s;s aje  i‘;s)e:;t:{e  s;:afc  $$$ ## slesfcjissjsjjcfcs!:# 


*  TF.NHEX:  CONVERTS  TWO  ASCII  CFAP  ERM  * 

*  IMT3U7  TO  TWO  4  BIT  HEX  #  * 

*  AND  ADD  TO  CKSUM.  * 

*  * 

*  REG  USE:  INPUT  32  =  PTR  TC  1ST  C3R  * 

*  RL3=  CESUM  ACCUM  * 

515  RETURN  R2  =  UPDATE  PTP.  * 

*  RL3=  updated  accum  * 

*  RL0=  HEX  VALUE  * 

*  AND  C  IP  NON-ASCII  * 

*  NC  IF  ALL  GOOD  * 

*  * 


j****###*##*##  I 


ENTRY 


^lFS 

DFF6 

c«l: 

ATOHEX 

!  CONVERT 

1ST  CHR  ! 

01EA 

9F07 

RET 

C 

31  EC 

90  SB 

ADDB 

RL3.RL0 

!  ADD  TO  i 

CXSUM  ! 

01EE 

P309 

SLA 

R0.« 12 

!  MOVE  TO 

H  NIBBLE 

nFo 

300C 

0172 

TFEB 

CALR 

ATOHEX 

!  CONVERT 

2ND  CHR  ! 

01F4 

9F07 

RET 

C 

01F6 

808B 

ADDB 

RL3.RL0 

01F8 

8408 

ORB 

RL0.RH0 

!  COMBINE 

NIBBLES  ! 

01  FA 

SD83 

S ES  FLG 

C 

01FC 

9E08 

RET 

01 FE 

END  TRNHEX 

^  ITT 

ATOHEX  PROCEDURE 

|  #*«$*##*$*  S*  «#*##****#  ##=**# 

if  * 


*  ATOHEX:  CONVERTS  ONE  ASCII  CHAR  TO  * 


*  4-PIT  HEX  NIPPLE.  * 

*  * 

*  REG  USE:  INPUT  R2  =  PTR  TO  CHR  * 

*  RETURN  P.2  =  PTR  +  1  * 

*  RL0=  HEX  NIBBLE  * 

*  * 


ENTRY 

01FF  2028  '  LDB  ? L0.OR2 

0200  A 920  INC  R2,*l  !  INC  PTR  ! 

0202  34 C A  LDA  R10,R12(#CONVERT J 

0204  0000* 

0206  1FA0  CALL  OF.  10 

0208  9E0S  RET 

020®  END  ATCHEX 
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0  23  A 

CONY  AD  PRO* 

2  DURE 

»  a*#*}***!*!#*** ❖S*^*#***#*##*#*###*#####*#  * 

# 

*  COMYAD: 

CONVERTS  STARTING  ADDRESS  * 

OF  PACKET  DATA  TO  HEX  #.  * 

* 

*  r-EG  USE 
•«# 

:  RETURN  FI  =  ADDRESS  ( HEX )  * 

•V 

V 

a*#*:#**###*!**#**  **###>)•#  V###*  *##*•»):>!<  t 

ENTRY 

320A 

7622 

LDA 

R2,INT3UF:R14 ) 

02*C 

0000 

0202 

D014 

CAL r 

TPNHEX 

0210 

A0Q1 

LD3 

RH1.RL0  !  STORE  1ST  BYTE  ! 

0212 

0016 

C  4L  i 

TPNHEX 

021  A 

-*0P9 

LDE 

RL1.RL0  !  STORE  2ND  BYTE  ! 

02  ie 

9209 

SET 

0219 

END  CONY  AD 

0218 

CFKPAK  PROCEDURE 

f  jjt  ajt^i  «#<:>!«  sjt  *#  jjt  sf;  Jjt  *#*  *  «*«#«#  i(t  Ks  *#*##♦####*#**  # 

# 

3?t 

*  CHKPAK: 

CK  RECEIVED  MCZ  PAC  CKSUM  * 

* 

AGAINST  ACCUMULATED  HEX  * 

* 

VALUE  CKSUM  AFTF?  sSCII-TC-  * 

* 

HEX  CONVERSION.  * 

?• 

* 

*  REG  USE 

:  RETURN  RH3  *  BYTE  COUNT  * 

* 

AND  C  IF  BAD  OF.  * 

NON-ASCII.  * 

* 

* 

ENTRY 

0219 

7622 

LD? 

P2,INTBUF(R14) 

021A 

0000 

021C 

C303 

LD3 

RH3,#3 

0212 

DFF9 

C»LR 

CHKSUM  !  CK  1ST  CKSUM  ! 

0220 

9207 

RET 

C  !  BAD  CK  ! 

0222 

9C34 

TESTS 

RH3 

*224 

9E06 

RET 

Z  I  NO  DATA  ! 

0226 

9323 

PUSH 

0R15.R3  !  SAVE  BYTE  COUNT  ! 

0229 

DFFE 

CAL? 

CHKSUM  !  CK  2ND  CKSUM  ! 

022s 

9723 

POP 

S3.0R15 

022C 

9208 

RET 

322E 

END  CHKPAK 

205 


?22E 

CHKSUM  PROCEDURE 

l ****#***«* 

ijcftHOtilf  ajtjjt###  *###**  :<!*##>* 

* 

*  CHKSUM: 

CONVERTS  ALL  ’EC  ASCII  CFR  * 

* 

IN  PAC 

TO  HEX  AND  AC  CUM  NSW  * 

* 

CKSUM . 

COMPARE  CKSUMS  AND  * 

* 

REPORT 

DIFFERENCES.  * 

*  RFC  USE 

:  INPUT 

R2  =  PTR  TO  PAC  * 

* 

?H3=  >*  CHR  PAIRS  * 

* 

RETURN 

RE3=  BYTE  COUNT  * 

* 

RL3=  NEW  CKSUM  * 

* 

RH3=  REC  CKSUM  * 

* 

AND  C  IE  BAD  OR  * 

*« 

NON- ASCII  REC  * 

* 

* 

S>  3)C!#e  »}csjts;*5{s 

ENTRY 

■Z22'c' 

£CP9 

CLRP 

RL3 

!  ’ESET  CKSUM  ! 

0230 

D025 

ABjCALR 

trnhsx 

!  CONVERT  PAIRS  ! 

0232 

9E07 

RET 

C 

0234 

F303 

DBJNZ 

RH3.AB 

!  CONTINUE .  ! 

0236 

A083 

LTR 

RH3.RL0 

0238 

93F3 

*>USF 

9P15.R3 

!  3»VE  BYTE  CNT  ! 

023A 

D02A 

CALR 

TRNHSX 

!  CONVERT  NEXT  TWO  ! 

023C 

97?3 

?CP 

R3.9R15 

023F 

9F^7 

RET 

C 

0240 

8AB8 

CPF 

RL0.RL3 

!  COMPARE  CKSUMS  ! 

0242 

9E06 

RET 

Z 

!  CxOOD  CK.  .  .  ! 

0244 

enei 

S  VTFLG 

C 

!  BAD  CKSUM  ! 

0246 

9F08 

RET 

0248 

END  CHKSUM 
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GLOBAL 

0248  LO»DEL  PROCEDURE 

}  #jj«*  *  **j|f  !)!>;; #  ::«>;;#####  ##  jjt ![:)(;  jfc^^sJtsSesSsfcsjsjJtjjtjJrajt^tj!?# 


*  LOADFL :  -.FCEI'/ES  PACKET  FROM  MC2  I N  * 

*  FOLLOWING  FORMAT:  * 

*  # 

*  <ADF.XCNT'  <CES1'<DTA>  .  .  .<DTAXCKS2>  * 

*  # 

*  *  DP.  =  START  ASP  IN  Z800P  MFM  * 

*  CNT  =  #  DATA  WORDS  * 

*  C K S 1 =  CKSUM  OF  <ADR>  +  <CNT>  * 

*  <’DT»>.  .  .<DT»>  =  30  DATA  WORDS  * 

*  CK  S2  =  CKSUM  OF  DATA  HEX  VALUES  * 

*  # 

*  PROCEDURE  VERIFIES  CKSU*S  3EF0RE  * 

*  STORING  DATA  IN  Z8Z00  MEM.  PACKETS  * 

*  ARE  ACK  EOR  WITH:  '0'  =  GOOD  * 

*  ' 7 '  =  FESSND  * 

*  '3'  *  ABORT  * 

*  IE  REC  '//'  FROM  MCZ ,  ECHOS  WHAT  * 

*  RFC  NEXT  TO  CONSOLE  AND  ABORT .  * 

*  * 


ft!*#**!!!#*##  )(t  ##*#**£#:*  S'!#*###!***#####*#####  J 


*NTEY 


02  AS 

D125 

CALR 

FNAME  !  CK  FILENAME  ! 

024  A 

65E4 

SET 

MFLAGS ( R14) ,#LDMDE  ’SIGNAL  LOAD 

?24C 

031C 

! PROG -  ESS ! 

024E 

D10O 

CALR 

CMDPAS  J  SND  CMD  TO  ^CZ  ! 

0250 

9E06 

RET 

Z  !  ZS0  PROG  NO  LOAD 

RECLOP: 

0252 

D065 

CALR 

LINRCT  !  GET  PACKET  ! 

0254 

76F2 

LD* 

R2  ,INTBUF(R14) 

0256 

0000 

0258 

2028 

LDE 

RL0,  (?R2 

025  A 

0  AOS 

CP3 

RL0,#'/'  !  CK  FOR  ! 

025C 

2F2F 

025E 

EE10 

JR 

NZ.CONTIN  ! NO ,  CONTINUE...! 

0260 

76E1 

LDA 

SI  ,CUTBUF(  F.14 )  f  YES  . ! 

0262 

0080 

0264 

2103 

LD 

R3,#%20 

0266 

B02e 

0268 

BB21 

LDI  ? 

OF.l ,  0R2 ,  R3  ! ERROR  MSG  SETUP  ! 

026A 

0310 

026C 

76F1 

LDA 

R1  .OUTBUF  f  R14 ) 

026E 

0083 

0270 

0101 

ADD 

R1  ,#%20 

0272 

0020 

20? 


*274 

6  FE1 

LD 

OUTPTR (HI 4 ) , R1  !SST  CUTPTR  ! 

0276 

3336 

0279 

34C» 

LD« 

R10,R12'*?BUFNC) 

327A 

033*# 

027C 

1 FA0 

CALL 

GR10 

027E 

9E39 

RET 

CONTIN : 

0290 

BIT 

MFLAGS (R14) ,#ESC  *  CK  FOR  ABORT  ! 

0292 

031C 

3294 

EE34 

JP. 

NZ.ABT  !  YES.  ABORT...! 

3296 

D039 

CALR 

CHKPAK  !  CK  CKSUMS  ! 

0299 

y  702 

JP. 

MC.GDLD  !  GOOD  LOAD  ! 

329  A 

D0A8 

CALR 

BADPAK  !  SEND  NON-ACK  ! 

C290 

E3E2 

JR 

PECLOP  !  TRY  AGAIN  ! 

!  CHECK  FOR 

LAST  PACKET  AND  PRINT  <ENT  *D?.'>  ! 

GELD  : 

728E 

P.CR9 

CLRB 

RL3 

3293 

9139 

ADD 

R9.R3  !  ACCUM  NUMBER  BYTES  ! 

!  C?  TRANSFER  ! 

0292 

9C34 

TESTB 

RH3  !  CK  C0UNT=3  ! 

0294 

EE28 

JR 

NZ.STOR  !  OK,  BEGIN  STR  ! 

0296 

30  A  A 

C«LR 

GODPAK  !  SEND  GOOT  ACK  ! 

3299 

f4F0 

LDL 

Pt50,INTBUF(R14) 

329A 

0030 

72  9C 

76FD 

LDA 

P.13, 0UT3UE( R14 ) 

029F 

0090 

32A3 

010D 

ADD 

R13,#%0C 

02  A2 

000C 

!  CHECK  FOR 

USER  SPECIFIED  ADDR  * 

02A4 

0309 

CP 

R9  ,#%AAAA 

'’2*6 

«AA» 

32Ae 

E61D 

J? 

Z . END  LOAD  !  NO  ECHO  TO  CONS  ! 

02AA 

0909 

CP 

R1 1 , #%FFFE  !  CK  FOR  LOAD  ADR  ! 

02  AC 

FETE 

02  A  E 

E608 

JR 

Z.SAME  ADR  !  USE  MCZ  ADR  ! 

02B3 

6FED 

LD 

CUTPTRIR14) ,R13  !  SET  OUTBUF  ADR  ! 

*232 

0306 

32E4 

61E5 

LD 

R5  ,  ADF._STP. (R14  )  !  GET  USE?  ADR  ! 

0236 

0344- 

3238 

76C  K 

LD* 

310, CONVW (R12 ) 

02BA 

0000# 

023C 

1FA0 

CALL 

(?R  10  !  CONVERT  TO  ASCII  AND  ! 

!  AND  STORE  IN  CUT’UF  ! 

22BE 

E601 

JP 

FIN  3UF 

SAME  AER: 
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r 


^200 

1DD0 

LDL 

3713  .BP* 

FIN  BUF: 

02  C2 

3432 

LEA" 

32,ENTADR  ! LOAD  ENTRY  LABEL! 

32C4 

■?<*40 

02  r? 

76F1 

LD  A 

r  1 ,  OUTBtTF(  ?:14  ) 

02CS 

0050 

02CA 

2100 

LD 

R0,#6 

32CC 

0306 

32CE 

BB21 

LDIR 

0R1,0R2,R0 

?2D* 

^010 

02D2 

76FD 

LDA 

R13 , OUTBUF^  R14  ) 

02D4 

0080 

02P6 

010!) 

ADD 

R13,#^10 

02D6 

0010 

32DA 

6FFD 

LD 

OUTPTR 'R14 )  ,R13 

02DC 

0306 

32DE 

34CA 

LDA 

?10 , R12 ( #?RNTBF ) 

02E0 

0000* 

?2E2 

1T»0 

C  *LL 

OR10  !  PRINT  MFSSAGE  ! 

2ND  LOAD: 

■3254 

9E00 

HET 

STOR: 

02E6 

D06F 

CALK 

C0N7AD 

0228 

E0D3 

C  ALE 

GCEPAK  !  SEND  ACK  ! 

22E4 

0094 

C  \lr 

UNPACK  !  UNPACK  4 ND  STOFE 

02EC 

F8B2 

JR 

RECLOP  !  CONTINUE....! 

ABT: 

2212 

3402 

L  0  *  ?. 

P2.EMSG 

32F0 

000A 

32F2 

34CA 

LDA 

?.10,R12  ■  #SNDMSG ' 

22F4 

0000* 

32F6 

1FA0 

CALL 

GP10  !  SEND  MESSAGE  ! 

32F8 

dodd 

CALR 

ABORTM  !  SEND  ABORT  ! 

32FA 

9F08 

RET 

02FC 

END  LOADFL 

EMSG: 

?2*C 

07 

37AL 

7 

3275 

2F41 

W7AL 

'/A' 

0300 

424F 

WVAL 

'BO' 

3302 

5254 

W7AL 

'p  T  ' 

0304 

0D 

BVAL 

%0D 

SNTADP. : 

3306 

4542 

W  7  A  L 

'EN  ' 

0308 

5452 

W7A.L 

'TR' 

030A 

5920 

W7AL 

'T  ' 
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03CC  504?  WVAL  'PO' 

030?  49*?  WVAL  'IN' 

'3310  5420  W'/AL  'T  ' 


FND  SUPP03T3 
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APPENDIX  D  -  BOOTSTRAP  Program  Listing 
A.  BOOTSTRAP  PROGRAM  LISTING 


1.  BOOTSTRAP  MODULE 


Zt 000 ASM  2.02 

LOG  ~03J  CODE  STMT  SOURCE  STATEMENT 

1  BOOTS TRP  MODULE 
$LISTO>N  $TTY 

CONSTANT 


= 

2 

m 

= 

3 

PAR 

= 

7 

PORTA D 

= 

%FFD9 

PORTED 

= 

%FFS1 

PORTAC 

= 

%FFDB 

PORTBC 

= 

*FFE3 

IDPORT 

= 

%FFCB 

ICPCRT 

' 

%FFC9 

TCMD  := 

eFFD2 

TDT  A  :  = 

%FFD0 

BUS  LOCK 

- 

«FFF9 

BUS' UNLOCK 

:=%FFF9 

VINTR 

% (2)0001000030000300 

VIBIT 

= 

12 

ESCAPE 

= 

X1B 

MAX  CPU 

= 

8 

BS 

2= 

%38 

LINDEL 

= 

%7T 

CR 

%3D 

LF 

= 

%0A 

TXOFCH 

= 

*13 

TXONCE 

%11 

INSIZ 

= 

128 

i 

INT3UF  SIZE 

! 

OUTS  I Z 

= 

128 

; 

0UT3UF  SIZE 

j 

RESIZ 

* 

256 

i 

RING  BUFFER 

S 

!  BIT  POSITIONS  IN  MONITOR  FLAG  V CRD  ! 
TP.PMDE  :=  0 

ISTOP  :=  1 

OSTOP  :=  2 
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0000 


0000 


0000 


S  'll  MCE  :=  3 

LDM^E  :=  4 

ESC  :=  5 

TXMSK  :=  16 


TYPE 

Message  arr ay  f3  word] 


SWITCH  ARRAY  [2  WORD] 

I- KM  A F  F  A  Y  ARRAY  [32  WORD] 

CPU_ENTRY  RECORD  [ 

SIGNAL  WORD 


CPU_ID 
MSG  BLK 
MEM~MAP 

id_a:-.pay 

ENTRY  ARRAY 


WOP.D 
MESSAGE 
MEM  ARRAY] 

ARRAY [MAX  CPU  WORD] 
ARRAY [MAX_CPU  CPU  ENTRY 


INTERNAL 

^SECTION  TABLE1  DATA 
AABS  0 

[ 

WORD 
WORD 
WORD 
WOP.D 
WORD 
WORD 

ENTRY  ARRAY] 


CCNEIG  TABLE  RECORD 
RW  PATTERN 
CPU  NUM 
NORM  RW  PAT 
NORM  CPU  CNT 
TABLE_LCCE 
CPU_CNT 
CPU  LIST 


^SECTION  TABLE2  DATA 
i  A  PS  0 


MI N_CONFI G  TBL  RECORD  [ 

LOG_TO  PHYS  ID_ARRAY 

CONE_MEM_MAP  MEM_ ARRAY] 

^SECTION  PSA  DATA 
$A3S  0 

PSA  RECORD  [ 

DATA  AREA  WORD 

CCrE~AREA  WORD 

UNIMP  INST  SWITCH 

PR IV  INST  SWITCH 

SYS_CALL  switch 

SEG  TRAP  SWITCH 

NMl'lNT  SWITCH 

NVTlNT  SWITCH 

7EC"PCW  WOP.D 

VEC_PC  ARRAY  [200  WORD] 
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1 


INTERNAL 

^SECTION  DATA  DEC 
$  APS  0 


00<?0 

INTBUF 

AFRAY  | 

‘128 

BYTE] 

0060 

OUTBUF 

ARRAY  | 

'126 

BYTE! 

0100 

RNGBUF 

ARRAY 

‘256 

3YTE1 

0200 

MCZBUF 

array  | 

'256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

3UFSIZ 

WORD 

*304 

INTPTR 

WOF.D 

0306 

OUTPTR 

WORD 

0308 

NXTPTR 

WORD 

03CM 

GETOUT 

WORD 

030C 

MCZPUT 

WORD 

O30E 

MCZGET 

WORD 

*310 

MFL'GS 

WORD 

0312 

RETRY 

WORD 

0314 

ADR  STR 

WORD 

0316 

dv/n'adp 

WORD 

0316 

START  ADR  WORD 

EXTERNAL 

LO'D  FILE  PROCEDURE 


$S ECTI ON  BOOTSTRAP  PROC 
$REL  0 


0000 


0000  340C 
0002  EFFC 


GLOB  'L 

BOOTSTRAP  PROCEDURE 

*  * 

*  I N I T  TEST:  INITIALIZES  "ULTIPFO-  * 

*  “  CESSOR  SYSTEM  WITH  A  COMMON  * 

*  MEMORY  MAP  AND  SYSTEM  WIDE  * 

*  KNOWLEDGE  OF  EACH  UNIQUE  * 

*  CPU  ID;  LOADS  LOCAL  AND  * 

*  GLOBAL  PORTIONS  OF  O/SI 

*  AND  TANSFERS  CONTROL  TO 

*  LOCAL  PORTION  . 

x  x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX I 

ENTRY 

LD A"  R12, BOOTS  TRAP  !  SET  NEW  CODE  AREA  ! 


!  INITIALIZE  SYSTEM  CALL  HANDLER  IN  PSA  ! 
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*  a 


71004 

7DA5 

LDCTL 

^lD.^SAPOFF 

0006 

3403 

LDA 

Ell  ,S YSTEM_CALL 

00ro 

^2*4 

000A 

76A1 

LCA 

P.l  , S YS  _C  ALL (  R10  ) 

O00C 

000C 

?2rT 

0D15 

LD 

0?1,*^4000  ! 

LOAD 

FCW  FOR  SC  ! 

0010 

4000 

0012 

331B 

LD 

R1'#2),R11  ! 

LOAD 

PC  FOR  SC  ! 

0014 

0002 

3016 

3405 

LDAP 

Rll ,MEM_I NT 

0019 

0392 

001* 

76  A 1 

LDA 

R1.VEC_PC(R10) 

001C 

001E 

001F 

331B 

LD 

R1(#14),R11  ! 

LOAD 

MEM  VIOLATION 

^020 

000F 

!  I  NT  HANDLE*  IN  PSA 


!  INITIALIZE  NORMAL  STACK  POINTER  ! 


0022 

210B 

LD 

Ell,  ^4500 

0024 

4500 

0026 

7DBF 

LDCTL 

NSP.Rll 

!  MOVE  CODE 

TO  COMMON 

NORMAL/SYSTEM  AREA  ! 

0029 

2101 

LD 

Rl  ,*%4100 

!  NEW  CODE  LOCATION 

002A 

4100 

002C 

3404 

LDA  R 

34 • VQRM_SC 

El 33  !  START  CF  CODE  ! 

002E 

001 E 

0030 

3402 

LDAR 

R2.GSB 

!  END  OF  CODE  ! 

0032 

0072 

DO 

0034 

214D 

LD 

R13.0R4 

0036 

2E1D 

LD 

0R1,?.13 

0039 

8B42 

CP 

R2.R4 

!  CK  FOR  END  ! 

003A 

E603 

JR 

Z ,  NXT  SCB 

*03C 

A  911 

INC 

Rl,#2" 

003E 

A941 

INC 

R4,#2 

0040 

E9F9 

OD 

!  CODE  TRANSFERRED  I 

NXT  SCB : 

0042 

2108 

LD 

R8  ,#%4100 

0044 

4100 

0046 

2103 

LD 

R3,#^411S 

!  SET  RTN  ADR  ! 

0048 

41  IS 

004A 

1F90 

CALL 

0R8 

!  SCRIBE  MEMORY  ! 

004C 

E82D 

JR 

TEST  LOCK 

-  .<■*.  -  I 
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I  s *##*#*# :*XS!(5#J)C* *# *####**# ##*i(satJic*:*s;s!(t#!jc#*$*# 


#  * 

*  N07M_SCFIiE:  SCFIBES  MEMORY  IN  THE  * 

*  NORMAL  MODE  US  IN'S  SYSTEM  CALL  * 

*  I  AS  THIJ  CT I  ON  FOR  BUS  LOCKS  AMD  '  * 

*  MODE  CHANGES.  THIS  CODS  SECTION  * 

*  WILL  BE  EXECUTED  FROM  A  COMMON  * 

*  (  NORM* L/SY STEM)  AREA  OF  MEMOFY.  * 

*  =* 


j*##*#***#:;:*;**  >!•$  ft*!:*#*  *#:{!*>!:  | 

NORM  SCRIBE: 


00AF 

2104 

LD 

R4,#%1000 

005? 

1000 

0052 

7D4A 

LDCTL 

FCW.R4  !  CHG  TO  NORMAL  "ODE  ! 

0054 

2101 

LD 

El ,#% A A55  !  NORMAL  P/W  PATTERN  ! 

0056 

A  A  55 

0053 

2104 

LD 

R4,*%F800  !  TCP  BLOCK  AD DR  ! 

005A 

F800 

0  05C 

9DPQ 

CLR 

R9 

«****#«  OLE ?F  MEMOFY  NORMAL  MODE  ##**#**  * 

DO 

005E 

6F41 

LD 

N0RM_RW_?AT: R4 ; , HI 

006? 

0004 

0062 

6F49 

LD 

NORM_ CPU_CNT (  ?4  )  ,P.9  !  CLEAR  CPU 

0064 

0006 

7066 

0304 

SU3 

R4  ,*%O870 

0068 

0800 

006A 

F8F9 

OD 

!  WAIT  FOP. 
V  A I T  3 : 

OTHER  CPU'S  TO  COMPLETE  TASK  ! 

7,067. 

2103 

LD 

R3 , #%1 000 

<7?6E 

1000 

0070 

7D3A 

LDCTL 

FCW.P3 

0072 

2103 

LD 

=3, #50 

0074 

0032 

DO 

0076 

1904 

MULT 

RR4 , #1 

007Q 

0001 

007 a 

"230 

r^c 

R3 

007C 

E601 

JP 

Z.SCBE 

007F 

T0F3 

OD 

!####*## 

SCPIBE  IN  NORMAL  MODE  a*****#; 

SCBE : 

0080 

2104 

LD 

R4  ,#%F800 

215 


•’092  E9O0 


DO 


’094 

6148 

LD 

R8  ,NORM_nV/ 

PAT'Rt) 

00Q« 

0004 

i/  0gp 

0319 

f'T) 

38.  HI 

’  CK  FOR  R/W  ! 

008  A 

EE07 

NZ  , N 0 _ W 

!  NO  R/W  ! 

•  CPU 

IDENTIFIES  ACCESS 

TO  THIS  BLOCK  ! 

O09C 

?E01 

SC 

*1 

!  LOCK  MULTIBUS  ! 

008S 

6148 

LD 

R8  ,NORM_CPU 

_CNT'R4)  f  GET  CPU 

0090 

0006 

7092 

» og? 

INC 

R6.41 

!  INCREMENT  ! 

3  094 

6E48 

LD 

NORM_CPU_CN 

T  ■  ?  4  '  ,  ?  3 

0096 

0006 

0098 

7F02 

SC 

42 

!  UNLOCK  MULTIBUS  ! 

N0_ 

RW: 

O09A 

P3D4 

CP 

R4 , R13  ! 

CK  FOR  LAST  BLK  ! 

'’ogc 

E603 

JR 

Z. TERMN 

!  FINISHED  ! 

309E 

0304 

SUB 

R4  ,#*0830 

00  AO 

0900 

00 '2 

vqF<? 

OD 

TERMN : 

00A4 

7?03 

SC 

43 

!  CHG  TO  SYSTEM  MODS  ! 

GSB: 

00A6 

9E09 

RET 

*  # 

*  TEST  LOCK:  ROUTINE  TO  SAIN  ACCESS  * 

*  "TO  CONFIG  TABLE.  * 

*  * 

*  REG  USE:  INPUT  R?  =  LO V  GLOBAL  MEM  * 

#  * 

TEST  LOCK : 

00  »8  7678  LD  A  '  F.8  .TABLE  LOCK  (  R17 )  !  LOCK  ADR  ! 

00 A A  0008 


00 AC  DE8F 
00A.  E  ED03 


MAIN  LOCK  TESTING  LOC?  ! 

DO 

CALR  TEST  N_SZT  !  ACCESS  CONFIG_TABLE  ! 

JR  PL.TBL  ACCESS  !  GOT  EXCLU.  ACCESS  ! 


00B0  1904 
00B2  0001 
00E  4  E8FB 


DELAY  BEFORE  NEXT  ATTEMPT  ! 
MULT  RR4,#1 

OD 
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’  V  # 

*  TBL  ACCESS:  ROUTINE  TO  DETERMINE  * 

*  DIRECTOR  CPU  AND  MEMBER  CPU'S.  * 

*  ~  # 

TBL  ACCESS: 


!  CK  IF  OWN  CPU  NO.  ! 


<:0B£ 

76^3 
000  A 

LD  A 

R3 ,C?U_CNT(R7) 

003  A 

213E 

LD 

R14.0R3 

7<*BC 

8B4E 

CP 

R14.R4  ! 

CK 

00BE 

F604 

JR 

Z , OWN  ID 

00C0 

-?0C2 

00C4 

4D75 

0000 

LD 

TA3LE_L0CK'R7) 

,*0 

00C6 

F6F0 

JR 

OWN  ID: 

TEST_LOCK 

00CS 
00'' A 

0P0E 

0000 

CP 

R14.40  ! 

CHF 

00CC 

E601 

J^ 

Z.BOCTLOAD  CPU 

i 

00CP 

F611 

JR 

MEMBER_CPU 

; 

t 

3CCTLCAD_CPU  START 

!  CHECK  IF  LOG_C?U  0?  ! 


t  It##*##*##  ###*##*«###  ###«  l(S$# 

*  * 

*  PCCTLC»D  CPU:  CPU  ASSUMES  ROLE  AS  * 

*  INITIALIZATION  COORDINATOR .  * 

*  CPU  DETERMINES  NUMBER  OF  CPU  * 

*  IN  SYSTEM  AND  INITIALIZES  THE  * 

*  CONFIG  TAELS  ACCORDINGLY.  IT  * 

*  TEEN  IDENTIFIES  ITSELF  AND  * 

*  WAITS  FOB  MEMBER  CPU'S  TO  * 

*  IDENTIFY  THEMSELVES;  AND  THEN  * 

*  CONSOLIDATES  CONFIG  TABLE  DATA  * 

*  INTO  SYSTEM  TABLE  MIN  CONFIG  * 

*  TBL ) .  "  * 

*  * 

*  REG  USE:  INPUT  R5  =  NUMBER  CPU'S  * 

*  P6  =  LOW  LOCAL  MEM  * 

*  R7  =  LOW  GLOBAL  MEM  * 

*  R4  =  LOG  CPU  NO.  * 


00D0  4D75 


BOOTLOAD  CPU: 

!  LOAD  CPU  CNT  WITH  NEXT  LOG_CPU  NUMBER  ! 

LD  ”  CPU_CNT f R7 ) , #1  !  LOAD  LOG_CPU  1  ! 
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n?T2  000A 
00D4  0001 


!  CO^PLZTT  OWN  CONFIG  TABLE  ENTRY  ! 

*006  7673  LD 1  ?.3,CPU  LIST(?7)  !  LOG  CPU  2  \ 

00D6  000C 

00 LA  7635  LDA  R14.MEM  MA?'R3) 

00DC  ^00 A 

00DE  DF62  CAL'  MA?_MEMO*Y  !  ENTER  MEM  MAP  ! 

!  UNLOCK  CCNFIG_T ABLE  ! 

F0E0  7673  LDA  PS. TABLE  LOCK(*>7)  !  LOCK  ADR  ! 


0052 

000S 

" 

00  V4 

0D35 

LD 

0R8,#0 

!  CLEAR  LOCK  ! 

0056 

<7000 

!  WAIT  FOR 

ALL  CPU 

'S  TO 

IDENTIFY  THEMSELVES 

00E8 

7670 

LLA 

38, CPU 

_CNT( 

37)  !  C?U_CNT  ADR  ! 

00SA 

000# 

00EC 

A 1 59 

LD 

R9.R5 

!  GET  TOT  #L  PHYS  CPU 

00EE 

DE02 

CALR 

WAIT  COMP 

!  WAIT  FOR  ALL  ! 

;'0F0 

F83  A 

JR 

CO MB  IN 

r  ###** 

MEMBER 

CPU 

START  i 

*  * 

*  MEMBER  CPU:  IDENTIFIES  ITSELF  IN  * 

*  CONFIG  TABLE  AND  ENTERS  MEM  * 

*  MAP.  WAITS  FOR  DIRECTOR  CPU  * 

*  TO  SIGNAL  TO  CONTINUE.  * 

*t  # 

*  REG  USE:  INPUT  R4  *  LOG  CPU  NO.  * 

*  * 


#**#***##$*##*$*$#*& $#3it  $$**#*$$$##$$$$*#  { 


MEMBER  CPU: 


00F2 

A14E 

LD 

R 14,  P.4 

f  SAVE  LOG  CPU  NO.  ! 

00F4 

767A 

LTA 

R10.CPU. 

.LIST (37'  !  3ASE  OF  ENTRY  ! 

0eF6 

*000 

0  0F8 

SD2e 

CLR 

R2 

DO 

00F# 

0102 

*DD 

32,  #74 

!  DETERMINE  BASE  OF  ! 

00FC 

00  4A 

O0FF 

ABE0 

DEC 

R14 

!  ENTRY  ! 

0100 

F601 

JR 

Z ,  CONT 

9102 

E8FB 

OD 

CONT : 

0104 

8 1 2  A 

ADD 

n?,P2 

!  COMPUTF  BASE  ADR  ! 

0106 

A1A3 

LD 

R3  ,R 10 
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!  ENT??.  MEM  MAP  IN  TABLE  ^NTRY  ! 


ai*e 

7«AE 

LDA 

"'-14,  MEM_MA? (  F.10  )  !  MEM_M'P  B‘SE 

01  -A 

00  *  A 

<y\cZ 

DE79 

CAL? 

MAP_MEMCRY 

» 

LOAE  CPU 

CNT  WITH  NEXT  LOG  CPU  NUMBER  ! 

010? 

76r,9 

LEA 

48 ,C?U_CNT(R7)  “ 

ni0 

ppr*  ^ 

0112 

2189 

LD 

R9.0P8  !  CPU  COUNT  ! 

3114 

A  993 

INC 

R9  !  ADD  ONE,  ! 

011fi 

2E89 

LE 

0P9.R9  !  »ND  PUT  B»CK  ! 

» 

UNLOCK 

CON?  TABLE  FOR  OTHER  PROCESSORS  ! 

011? 

76-78 

LEA 

RS,TABLE_L0CK(R7) 

011.' 

0008 

01 1C 

0D85 

LB 

9F8,#0  !  CLEAR  LOCK  ! 

311? 

0000 

i 

WAIT  FO 

SIGNAL  TO  PROCEED  WITH  BOOTLOAD  ! 

3120 

76  A0 

LEA 

R8 .SIGNAL  F R10 )  !  OWN  SIGNAL  ADR 

0122 

0000 

ro 

0124 

2182 

LE 

R2.0R8  !  TEST  SIGNAL  ! 

0126 

0B02 

CP 

R2,#l 

012? 

0001 

012  A 

E601 

JR 

Z,DWN_LE 

012C 

E8FB 

OD 

EWN  LE: 

j 

EOWN-LO  ®B 

PrOC  LOCAL  INTO  LOC'L  MEMORY  ! 

012E 

76A1 

LDA 

R1 ,MSG_2LK (R10 )  *  OWN  MSG_BLK 

0130 

0004 

0132 

2112 

LE 

R2.9R1  !  CURRENT  COrE  ADR 

3134 

3113 

LD 

=3, El (#2)  f  LOC'L  LOAD  ADR  f 

0136 

0002 

^138 

311? 

LE 

R14,R1(#4)  !  NUMBER  OF  BYTES 

013A 

0004 

013C 

BA21 

LEI  ?B 

9E3.9R2  ,R14  !  MOVE  CODE  1 

013E 

0^30 

! 

CLEAR  SIS 

NAL  I 

0140 

0D85 

LE 

(?R8,#0 

0142 

0000 

f 

SIGNAL 

DIRECTOR  CPU  THAT  THIS  CPU  DONE  ! 

0144 

tedb 

CAL? 

TEST  N  SET  I  ACCESS  TO  I 

!  CONFIG  TA3LE  ! 

0146 

767? 

LDA 

R1 4, CPU  CNT<R7) 

0148 

000  A 
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P14A 

2159 

ld 

R9.0R14  !  LOG  CPU  NUMBER  * 

014C 

*990 

IMC 

79 

014? 

2FE9 

ir 

0P14,Rr  !  INCREMENT  5 

0150 

'?67? 

LDA 

R14,TABLE_LOCX  37) 

0152 

0008 

0154 

0DF5 

LD 

0F14,#0  .  CLEAR  LOCI  ! 

0156 

0000 

!  WAIT  FOR 

SIGNAL  TO  TRANSFER  CONTROL  ! 

DO 

0150 

2192 

LD 

*2.9R8  !  TEST  SIGNAL  ! 

015* 

0902 

CP 

R2  .*1 

01EC 

0001 

015? 

*601 

JR 

1 , TRN_CNTL 

0160 

F8F3 

OD 

TRN  CNTL: 

!  TRANSFER 

CONTROL  TO  C/S  ! 

0162 

2112 

LD 

F.2.9R1  !  OWN  MSG  3LK  ! 

0164 

1*28 

JP 

OR 2  »  START  OF  O/S  ! 

ND  OF  MEMBER_C?U  *****  * 

I  a?***,!:##**)**:**#  *-:*#*##***##>::*>)! 

*  ft 

*  GLOBAL  INITIALIZATION  STAGE  * 

* 

COMBI  N: 

t  ######*£*$****:* a*##***## a***##***#*###**** 

*  CONSOLIDATE  CPU_ENTRT'S  INTO  TABLE  * 

!  CONSOL I DAT 

T  LOG  CPU  TO  PETS  ID 

IN  TABLE  ! 

0166 

A171 

LD 

R1  ,R7_ 

0168 

7671 

LDA 

P.1, CPU  LIST(R7)  !  TABLE  ENTRY  3 ASE 

016A 

000C 

016C 

A159 

LD 

R9.R5 

DO 

016E 

0101 

ADD 

R1 , #74  !  ADR  OF 

NEXT  ENTPY  ! 

0170 

004A 

0172 

A  390 

DEC 

R9 

0174 

E601 

JR 

Z,HA7E_ADR 

0176 

ESFB 

OD 

EA  VE_AUP : 

!  ADDRESS 

! 

0179 

76*9 

LDA 

R9  ,CPU_LIST '  R7  )  !  GST 

START  OF  ! 
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cm  o^c 


!  CPU  ENTRY'S  ! 

J17C 

7«92 

LDA 

R2,C?U_ID'R9) 

017E 

0002 

0180 

Alf  4 

LD 

R4,°5 

ro 

01S2 

212D 

LD 

P13.0R2  !  STORE  PHIS  ID  ! 

0184 

2F1D 

LD 

0R1.R13 

0186 

A911 

INC 

El  ,62 

0188 

0102 

ADD 

r.2  ,  “74 

0 1 6  A 

004A 

01  8C 

AB40 

DEC 

R4 

*18F 

0P04 

CP 

R4.60  !  CK  IF  FINISHED  ! 

0190 

0000 

0192 

E601 

JR 

Z  ,MEM_C0NS0L 

0194 

E9F6 

OD 

!  CONSOLIDATE  MEM  MAP'S  INTO  MIN  CONFIG  TEL  l 

MEM  CONSOL: 

0196 

2104 

LD 

"4,«32 

0196 

0020 

019A 

^679 

IDA 

R9  ,C?U_LI ST ( R7 ) 

019C 

000C 

019E 

7692 

LDA 

F.2  ,MEM_M  AP(  ?9  )  !  L0G_CPU  0  ! 

01A0 

000  A 

DO 

01 A2 

212D 

LD 

R13.0R2  !  COPY  LOG  CPU  0  VALUES 

01A4 

2F1D 

LD 

0R1 ,313 

Cl  ?6 

‘911 

INC 

?1 ,62 

oiA.e 

A  921 

INC 

R2,#2 

01 AA 

A  B40 

DEC 

R4 

^1 

F601 

JP. 

Z,NXT_CPU  !  GET  NEXT  LOG_C?U  ! 

01 AE 

E8F9 

OD 

NXT  CPU: 

!  MAIN  LOOP  FOR  CONSOLIDATION  OF  REMAINING  MAPS 


01P0 

A15B 

LD 

R11.R5 

01B2 

ABB0 

DEC 

511,01 

eiB4 

F619 

JR 

Z.LL  ! 

NO 

MORE 

M  ‘ PS  TO 

DC 

DO 

31P6 

210D 

LD 

R13.632 

01Be 

0020 

01BA 

A 129 

LD 

P9.R2 

01BC 

7692 

LDA 

R2  ,MEM_M AP (R9 ) 

! 

NEXT 

LOG_CPU 

l 

01BE 

000  A 

01C? 

0301 

SUB 

Rl ,664  ’  ADR 

NEW 

T3L 

MEM_MA? 

! 

01C2 

0040 
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DO 


■  01C* 

21 23 

LD 

R3.0R2  !  NEW  VALUES  ! 

31C6 

2114 

LT 

R4,f»Rl  !  GRIG  VALUE  ! 

?1C8 

9  A  34 

CPB 

PH4.RH3  !  COMPARE  ! 

01  CA 

EE01 

JR 

NC.COMP  LOW 

31 CC 

A  3  34 

LIB 

COMP  LOW 

RH4.RH3"  !  SAVE  NEW  VALUE  ! 

-  31CE 

8ABC 

CPB 

RL4.RL3 

31D0 

EF01 

J? 

NC .AGAIN 

*  01D2 

i 

A  PPC 

LDB 

AGAIN: 

CL4,PL3  !  SAVE  NEW  VALUE  ! 

i  31D4 

2E14 

LD 

3R1.R4  !  SAVE  MAP  BLOCK  ! 

01D6 

*911 

INC 

P.1,  *2 

!  oiDe 

A921 

INC 

R2,  #2 

'  3  IDA 

A  3D0 

DEC 

R13 

1  31DC 

E601 

J- 

Z.OVR  !  GET  NEXT  MEM  MAP! 

!  01L? 

?&?2 

OD 

OVR  : 

j  21E0 

*PB3 

DEC  ?11,#1 

'  31E2 

?601 

JR  Z, 

LL  !  FINISHED  ! 

01E4 

E8E8 

CD 

I  i**#*##*#*#*##  «*«#$###*#«##*  #####*$*£#£** 

t-  * 

*  OPERATING  SYSTEM  CORE  IMAGE  * 

*  LOAD  STAGE  * 

*  *##*###*::<«  J**#  s*##:;:*:  s**t  **:#!{:  tf  #***:*»!:#*  J 


LL: 

!  SUPERVISE  P-OC  LOCAL  LOADING  ! 


01E6 

3404 

LDA3 

H4,PR0C_L0CAL  !  LOAD  KERNEL  ! 

31E8 

013E 

31 EA 

DF6F 

CAL? 

COOP.D_DVN_LD 

!  SAVE  ENTRT 

’  ADDRESS  TO  KERNEL  I 

01EC 

61E4 

LD 

r.4  ,DWN_  ADR  ( P.14  ) 

31  EE 

3316 

31F0 

6FE4 

LD 

START_ADR  <R14) ,R4 

01F2 

0318 

!  LOAD  PROC 

GLOBAL  OF  O/S  ! 

01F4 

3404 

LDAR 

R4 ,PROC_GLOBAL  !  LOAD  SUPERVISOR 

0176 

013F 

01F6 

DF76 

CALF. 

COORD  DWN  LD 
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!  SIGNAL 

ALL  CPU  TO  TRANSFE"  CONTROL  TO  */S  ! 

*lFa 

6100 

LD 

■;0  ,ST  AP.T_ADR 

01  FC 

0313 

01?* 

6174 

LD 

R4,CPU_LIST(R7>  !  LIST  EASE  ADR  ! 

r  200 

000C 

0202 

A153 

ID 

R3,P5  !  NO.  CPU'S  ! 

DC 

0204 

6F40 

LD 

MSG_BLK(R4)  ,R0  !  STORE  ST*RT  ADR 

0206 

0004 

020S 

AB30 

D?C 

R3 

020  A 

5603 

JR 

Z , END  SIG 

020C 

0104 

ADD 

?4,*?4  !  NEXT  CPU  ENTRY 

0205 

004A 

*21* 

F8F9 

OD 

END  SIC: 

0212 

DF52 

CALR 

SIGNAL  CPU 

*214 

2104 

LD 

R4.#0  !  SAVE  LCG_C?U  NC.  ! 

0216 

0000 

!  TRANSFER  CONTROL  TO  START  OF  CODE  ! 

*219 

0102 

LD 

R2.P0 

021 A 

1529 

JP 

OR  2 

END  DIRECTCR_CPU  *****  ! 

021C 

END  BOOTSTRAP 

321 C 

MAP  MEMORY  PROCEDURE 
|  $  #$$$##];«******#***********#****  ***$$**£* 

# 

* 

*  MA? 

MEMORY:  MAPS  CPU  MEMORY  ACCESS  * 

BY  DOMAIN,  AS  TO  LOCAL  (1),  * 

* 

GLOBAL  (2) ,  DUAL  USE  (3) ,  * 

* 

NON  USE  (4),  NON  ACCESS  (5).  * 

—  a. 

*  RES 

USE:  INPUT  R14  =  ADR  MEV_MAP  * 

* 

* 

ENTRY 

!  MOVE  CODE  TO  LOCAL,  NORMAL  MEMORY  A RE a  ! 

021C 

2101 

LD 

R1  ,#!?4100  !  NEW  LOCATION  ! 

*21E 

4100 

0220 

3404 

LDAR 

P.4  ,NORM_M  A?  !  START  OF  CODE  1 

0222 

0034 

0224 

3402 

LDAF. 

R2,NORM_RTN  !  END  OF  CODE  ! 

0226 

0084 

DO 

0223 

2149 

LD 

R9.0F.4  !  MOVE  CODE  ! 
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022/ 

2F19 

LD 

(??1 ,  ?9 

3220 

FB42 

C? 

R2.R4  ! 

CK  FOR  END  ! 

022E 

*603 

JR 

Z. BEGIN  MAP 

0230 

A  911 

INC 

PI  .“2 

0232 

A941 

INC 

R4,#2 

?234 

F8F9 

OD 

f  BEGIN  MAPPING  NORMAL  MODE 

MEM  ACCESS  ! 

BEGIN  MAP: 

7236 

»1D4 

LD" 

R4.P13  !  LOW  3LK  ACCESS  ! 

0238 

A1E1 

LD 

R1 ,R14 

DO 

023A 

8D44 

TEST 

R4 

323C 

E604 

JR 

Z.FND  BLK 

023E 

0304 

SUB 

R4,#‘S0S00 

0240 

0800 

0242 

A911 

INC 

El  ,62 

0244 

F8FA 

OD 

FND  BLK : 

0246 

511E 

LD 

R14.R1 

3249 

A1D4 

Lr 

R4.R13 

!  ?1  =  M* P 

END  BLK,  F.4  =  AD 

i?  ! 

024  A 

2109 

LD 

R9,*%FS04 

024C 

F904 

024E 

A  943 

INC 

R4.64 

!  MAP  AND 

ENTER  FROM  NORMAL 

MODE  ! 

0250 

2108 

LD 

R 8, #*41 00 

0252 

4100 

025«- 

1F80 

CALL 

0R8 

0256 

9508 

RET 

3258 

END  MA*_MEMORY 

0258 


3253  2102 
025*  1  *55 
025C  2110 


NORM  MAP  PROCEDURE 

|  ***£*#############*#:!>###**#:::*#*#*####### 


#  * 

*  NCF.M  MAP:  MAPS  MEMORY  ACCESS  IN  THE  * 

*  "NORMAL  MODE  INTO  CONFIG  TABLE  * 

*  FOR  CPU.  * 

*  * 

*  REG  USE:  INPUT  R1  =  MEM_MAP  ADR  * 

*  R4  =  MEM  ADR  * 

*  R9  =  STOP  ADR  * 

*  * 


ft*#*##*#####*#*###*******##**#*#*##***## « 

ENTRY 

LD  R2  ,#%AA55  !  NEW  R/W  PATTERN  ! 

LD  F.0 ,0R1 
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DC 


725E 

210  s 

LD 

310.^1700 

02655 

1003 

0262 

7  DA  A 

LDCTL 

FCW.R10 

; 

CHG  TO  NORMAL  MODE 

0264 

2143 

LD 

K3 , 9?.  4 

0266 

8B23 

CP 

R3  ,R2 

r 

TEST  EOF  F./W  ! 

0268 

EEl7 

JR 

•iZ.NC  ACCESS 

!  NO  R/W/  ! 

026 » 

'143 

LD 

E3.P4 

026C 

A  931 

INC 

R3,*2 

1 

CX  FOR  LOCAL  ! 

326E 

213B 

LD 

R1 1 , 0R3 

027* 

0B0* 

CP 

311, #1 

; 

CPU_NUM  =  1?  ! 

0272 

3001 

0274 

VV03 

JR 

NZ ,GLOE_ACC 

!  LOCAL 

ACCESS  ! 

3276 

*143 

LD 

R3.R4 

027P 

0303 

SUB 

R3,#4 

j 

CK  FOR  SYS  MODE  R/W 

027/> 

0*04 

027C 

213? 

LD 

F11.9R3 

; 

GET  PATTERN  ! 

02?E 

0B01 

CP 

R1 ,#*55AA 

02S0 

55  A  A 

3282 

?602 

JR 

Z.DUAL  MODE 

3284 

0°01 

ldb 

RL0,#%01 

! 

ENTER  LOCAL  ID  ! 

0236 

E809 

JR 

CYCLE 

DUAL  MODE: 

02es 

C803 

LDB 

RL0 , #%03 

! 

ACCESS  BY  N/S  MODES 

023' 

T807 

JR 

CYCLE 

GLOB  ACC 

• 

• 

028C 

8B5B 

CP 

ail  .35  ! 

CX  FOR  GLOBAL  ! 

028E 

FEfl,2 

JR 

NZ.NON  USE 

0290 

C802 

LDB 

RL0,#%32 

! 

ENTER  GLOBAL  ID  ! 

0292 

E803 

JR 

CYCLE 

NON  USE: 

3294 

C804 

LDB 

RL0 , #%04 

! 

ENTER  NONJJSE  ID  ! 

0296 

E901 

JR 

CYCLE 

NO  ACCESS: 

3298 

ceas 

"LDB 

RL0f#%05 

! 

ENTER  NON.ACCSSS  ID 

CYCLE: 

029' 

7703 

SC 

#3 

! 

CRG  TO  SYSTEM  MODE 

029C 

2F10 

LD 

v?R  1 ,  R0 

029E 

9B94 

CP 

R4.R9 

j 

CX  FOR  COMPLETION  ! 

02A0 

7605 

JR 

Z , NORM_RTN 

02A2 

0104 

ADD 

R4 ,#%0800 

! 

NEXT  MEM  ELOCK  ! 
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1 


72A4 
7246 
02  8  3 

piQ(J0 

491 1 
2110 

INC  r i  #2 

LD  R0*(?R1  !  NEXT  MAP  ELOCK 

02  3  4 

E3D9 

OD 

02AC 

9E08 

NORM  RTN : 

RET 

02  A  E 

END  NO?M_MAP 

02AE 

SYSTEM  CALL  PROCEDURE 

i  ft**#*#*********:***#*#*##* 

I 

A 


i 


*  * 
*  SYSTEM  CALL:  AFFECTS  PRIVILEDGED  * 


* 

INSTRUCTION 

EXECUTION 

IN  THE 

* 

NORMAL  MODE 

, 

1  =  BUS 

LOCK 

* 

£ 

2  =  BUS 

UNLOCK 

Og 

♦ 

3  =  CHG 

FCW 

5}C 

a*#***!####**#*  ***>)!  ###*##*#  I**##*#  I**#*  J 


ENTRY 


02  AE 

93E0 

PUSH 

0315, R0 

0230 

31F0 

LD 

R0  .R15 (#2 ) 

72B2 

7702 

02B4 

8C08 

CLRB 

~E0 

0236 

0300 

C? 

R0,#1 

72E8 

7771 

02B  A 

EE04 

JR 

NZ.CK2 

02BC 

3B26 

OUT 

3US_L0CK,R2 

02BE 

EFE9 

02C0 

9?vg 

POP 

?0,OP.15 

02C2 

0300 

I  RET 

CK2 : 

02C4 

0P00 

CP 

F.0  ,  #2 

02C6 

0702 

^2C8 

TE04 

JR 

NZ.CK3 

02CA 

3B26 

OUT 

EUS_UMLOCK, 

02CC 

FFF8 

02CE 

97F7 

POP 

R0 ,0R15 

02D0 

7B00 

I  RET 

CK3: 

72D2 

0370 

CP 

Re, #3 

02D4 

0003 

02D6 

EE08 

JR 

NZ  .NONE 

72  D8 

93FB 

PUSH 

0R15.P11 

32DA 

210B 

LD 

R1 1 , #%5000 

!  SAVE  WORK  PEG  !  ! 

!  GET  INSTRUCTION  !  i 

i 

!  GET  EXECUT .  CODE  f  i 

!  CK  FOR  BUS  LOCK  !  j 

j 

!  LOCK  MULTIBUS  !  1 

I 

!  FES  TOPE  WORK  REG  !  I 

!  CK  FOR  UNLOCK  BUS  ! 

!  UNLOCK  MULTIBUS  !  j 

!  RESTORE  WORK  REG  ! 

!  CK  FOP.  MODE  CHG  ! 

« 

l 
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I 

I 


02DC 

5000 

02DP 

33FB 

LD 

ai5(#6).m 

02E0 

0006 

02E2 

97EB 

POP 

Rll  ,(?R15 

02  E4 

97*0 

POP 

R0.0R15 

!  RESTORE  WORE 

REG  ! 

02F6 

7P00 

IRET 

NONE: 

02E8 

97*0 

POP 

'0 ,0R15 

!  RESTORE  WORK 

REG  ! 

02EA 

7P00 

IRET 

02EC 

END  SYSTEM 

_CALL 

r,2EC 

WAIT  COMP 

PROCEDURE 

|  #  *#$*$**#**  *jjs  #  *  **  Jit  *S  ##*#*#  *  *#######  # 

*  * 
* 

# 

* 

* 

* 

*  REG  USE:  INPUT  R£  =  ADDR 

R9  =  VALUE 


WAIT  COMP:  W»IT  EOR  SPECIFIED  MEM 
LOCATION  (PS)  TO  CONTAIN  THE 
SPECIFIED  VALUE  (R9'  BEFORE 
RETURN . 


3 


ENTRY 

DO 


02EC 

218D 

LD 

R13.9R8 

f  GET  VALUE  f 

■'"2FE 

OP9D 

CP 

R13.R9 

!  CK  FOR  MATCH  ! 

02F0 

E603 

JR 

Z , GOT  SIG 

32F2 

1904 

MULT 

RR4 ,  #1 

!  DELAY  ! 

02F4 

0001 

02F6 

F8FA 

OD 

GOT  SIG: 

02FS 

0D85 

LD 

<?*8,#0 

!  CLR  MSG  BLK  ! 

02FA 

0000 

02FC 

9E08 

RET 

02FE 


END  WAIT  COMP 
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-sjw 


?2FF 


GLOBAL 

CPTJ  W»I?  PROC EDURE 

f  sje  JCtiJi # # ##*1(5  #*£###*:*!#>)! fififififif #**<#  f-ifififif 


*  * 

*  CPU  W 4 ITS  APPROX.  2MSEC  FOR  ALL  * 

*  CPU'S  TO  COMPLETE  THE  SAME  TASK  * 

*  BEFORE  CONTINUING.  * 

*  * 


«  jjtjjr  *!*  #**#*!  #*  *t#  S#*#*##**  if  if  j 

ENTRY 

02?**  2103  LB  ?3,*50 

0300  0032 

DO 

0302  1904  MULT  RR4,#1 

0304  0001 

0306  9B30  DEC  P3 

0308  E601  JR  Z  .P.ETRN 

030  A.  F8FB  OD 

RETRN: 

030C  9E08  RET 

^308  END  CPU_W  s IT 

030Z  COORD  DWN  LD  PROCEDURE 

j  if^^ifif^ifififififififUfifififififififififirififififififififififififif 
if  * 

*  LO»D  LOCAL:  LOADS  PROCESSOR  LOCAL  * 

*  Portion  of  o/s  into  global  mem  * 

*  AND  SUPERVISES  LOADING  BY  ALL  * 

*  CPU'S.  SETS  DOWN-LOAD  INST.  IN  * 

*  MSG  BLK  OF  EACH  CPU.  * 

if  a 


ENTRY 


030E 

A 173 

LD 

R3.R7 

0310 

0103 

ADD 

F.3 , #%0600  !  GLOBAL  LOAD  4DP.  ! 

0312 

0800 

0314 

suae 

CLP 

^9  !  PESET  BYTE  COUNT  ! 

1  RESTORE  PREVIOUS  DATA  AREA  1 

0316 

7D15 

LDCTL 

R1  .PSAPOFF 

03ie 

611 E 

LD 

PI i, DAT A_ AREA ^  R1 ) 

031 A 

0000 

!  LO  4D  FILE 

FFOM  MCZ  ! 

031C 

?FC0 

CALL 

LO AD_FILE (R12) 

03  IE 

0000^* 

!  SET  DOWN-LO s D  INSTRUCTIONS  FOR  OTHER  CPU  ! 
0320  A173  LD  R3.R7 


21322 

0103 

ADD 

R3,#%0800  !  GLOBAL  LOAD  ADR  ! 

0324 

0Q0  0 

3325 

7671 

LD.4 

rl,C?U_  LISTU7'  !  BASE  CF  ! 

0328 

000C 

!  TABLE  ENT? I ES  ! 

032A 

7612 

LDA 

*2tMSG_BL*(*l  }  !  MS G_BLK  LOG_CPU  0  ! 

•332C 

0004 

"32E 

61  *4 

ID 

',4,LWN_ADR(?.14l  !  ?ROC_LOAD  DCWN-  ! 

3333 

0316 

!  LOAD  ADDRESS  ! 

!  ?.8  =  SIZE  ! 

0332 

#156 

LD 

?6,?5  !  TOTAL  NO.  CPU  ! 

DO 

0334 

2?23 

LD 

OR2 , B3  !  LOAD  GLOBAL  ADR  MSG1  ! 

0335 

3324 

LD 

R2 ( #2 ) , R 4  !  LOCAL  ADR  MSG2  ! 

033  = 

0002 

033  i 

3329 

LD 

R2(*4).R9  !  SIZE  CF  COEF  MSG3  ! 

033C 

0004 

033? 

A  ?60 

DEC 

R6 

734* 

?603 

JR 

Z.DO  SELF 

0342 

01 02 

ADD 

R2,*74  !  ADR  NEXT  LOG  CPU  MSG  3LK 

0344 

004A 

0346 

?8?6 

CD 

DC 

l  SEL?: 

f 

Load  procedure  local  code  into  own  local  m?m  f 

0348 

76^1 

LDA 

R1 , CPU_L 1ST ' R7 ) 

034? 

000C 

034C 

7612 

LDA 

F2, MSG_BLK' R1 )  !  OWN  MSG_BLE  ADR  ! 

034? 

0004 

0350 

2121 

LD 

R1.0R2  !  SOURCE  ADDRESS  ! 

0352 

3123 

LD 

?.3 ,  P.2  (  #2  )  !  DESTINATION  AD 15  ? 

0354 

0002 

0356 

3124 

LD 

H4,R2(#4)  !  NUMBER  BYTES  ! 

0356 

0004 

03  5 A 

3A11 

LDIPB 

OR3,0R1,R4  !  DOWN-LOAL  CODE  ! 

035C 

043*7 

f 

SET  CONFIG 

TABLE  CPU  CNT  TO  LOG  CPU  1  ! 

035? 

4r?5 

LD 

~CPU_  CNT ' R7 ) ,#1 

036? 

000  5 

0362 

0001 

! 

SIGNAL  ALL 

CPU  TO  PROCEED  WITH  DOWN-LCAT  ! 

0364 

DFFB 

C»L? 

S IGN  AL_C  PU 

; 

WAIT  FOR  A 

LL  CPU  TO  COMPLETE  ! 

0366 

7679 

LDA 

R8, C?U_CNT(R7) 
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?369 

77^  r 

7  36* 

A 159 

LD 

RS.R5  !  NUMBER  CPU  ! 

f'36C 

3741 

C  ■  L? 

V  * IT_CCMP  !  WAIT  ?C-R  COMPLETION 

236? 

9?06 

RET 

!  RETURN  TO  DIRECTOR_CPU  ! 

737? 

END  CC0P.E_rW  M _  LD 

037^ 

SIGNAL  CPU 

PROCEDURE 

* 

*  signal 

C^U :  PLACES  SIGNAL  (#1)  IN  * 

*  SIGNAL  BLOCK  FOR  EACH  CPU  EN-  * 

*  TF 

te 

Y  IN  C0NFIG_TA3LE.  * 

ENTRY 

!  SIGNAL  ALL  CPU  TO  DOWN-LOAD  ! 

0370 

7673 

LDA 

R3,CPU_LIST(R7) 

0372 

7007 

2374 

3103 

ADD 

-3. #74  !  LOG_CPU  1  ENTRY  ! 

7376 

004A 

-■>378 

*154 

LD 

R4.R5  !  TOTAL  NO.  CPU  ! 

737* 

AB40 

DTC 

?4 

237C 

?608 

JR 

Z,ALL_SIG 

DO 

337? 

4D35 

LD 

SI GNAL (R3  )  , #1  !  LOAD  SIGNAL  ' 

0380 

0000 

7382 

0001 

0384 

AB40 

DSC 

P4  - 

0386 

?603 

JR 

Z , ALL  SIG 

7368 

0103 

*DD 

B3 ,#74  !  NEXT  LOG_CPU  ADR  ! 

036A 

004A 

738C 

?9F9 

CD 

ALL  SIG: 

338? 

9?08 

RET 

7390 

END  SIGNAL 

CPU 
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0390 

TEST  M  S 

ET  PROCEDURE 

sic 

*  T?ST_ 

M  SET:  ROUTINE  UTILIZING  HDW 3 

«■« 

❖ 

TSST  INSTRUCTION  AND 

BUS  LOCKING  A.3ILITY  TO 

y. 

* 

AEEECT  MUTU 4 L  EXCLUSION 

# 

5* 

ON  ACCESS  TO  COMMON 

DATA  STRUCTURES  LOCK. 

* 

USE:  INPUT  Re  =  ADR  OE  LOCK 

* 

* 

* 

ENTRY 

0390 

3326 

OUT 

3US_L0CK,R2  !  LOCK  SYSTEM 

1  PUS  ! 

0392 

EEE9 

0394 

0D86 

TS  tt* 

G>R8  !  TEST  TA3LE 

LOCK  ! 

0396 

3326 

CUT  ' 

3US_UNL0CK,R2  !  UNLOCK  SYST 

'EM  BUS 

0398 

ypvg 

039A 

9E08 

P.ST 

039C 

END  TEST 

_N_SET 

GLOB 4 L 

039C 

MEM  I  NT 

PROCEDURE 

J  5^3jeaF^3jr*sCe 

# 

*  mem 

I NT:  INTERRUPT  HANDLER  EOR  AN 

£ 

$  ~ 

ILLEGAL  LOCAL  MEMORY 

❖ 

ACCESS  IN  THE  NORMAL  MODE 

* 

# 

SAVES  MEMORY  ADDRESS  OE 
next  block. 

* 

❖ 

*« 

*  PEG 

USE:  INPUT-  P3  =  RTN  POINT 

* 

R4  =  FAULT  ADR 

* 

* 

I*#!*###*##*####*##:*:!:!**:#######*:##*##*##*##  r 

ENTRY 

039C 

01*4 

ADD 

P4,*^0800  !  RESTORE  BLOCK  ADR  ! 

0391: 

0800 

03A0 

A14D 

LD 

R13.R4  !  SAVE  ADR  ! 

?3  -2 

0103 

ADD 

R15,*6  !  RESTORE  STACK  ! 

■03  A  4 

0006 

03A6 

1S38 

JP 

0R3  !  RTN  TO  SYS  CODE  ! 

03»8 

END  MEM_ 

I  NT 

PROC  LOCAL: 

03A  ? 

0D 

BVAL 

%0D 

73  s  » 

4C4E 

W  V  *  L 

'LO' 

03  AC 

4144 

WVAL 

'AD' 

03  AS 

2043 

WVAL 

'  K' 

7337 

4552 

WVAL 

0332 

4F15 

W7«L 

'ME 

03*4 

4C20 

WVAL 

'  T 

1j 

73*6 

27 

t»VAL 

/  / 

PROC  GLOBAL 

• 

• 

333? 

11 

b7al 

%11 

^3B9 

4C4F 

WVAL 

'LO 

233  A 

4144 

WVAL 

'AD 

3330 

2353 

WVAL 

'  s 

333? 

5552 

W  7  1 L 

'UP 

03C3 

4552 

WVAL 

'SR 

03C2 

5549 

WVAL 

'VI 

ni3C4 

534? 

WV»L 

'SO 

03C6 

5223 

WVAL 

'R 

P3C9 

20 

3VAL 

#  * 

END  FOOTS  TP.  P 
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2.  SUPP0RT1  vODULE  '  same  as  Appendix  C) 

3.  SUPPCRT2  ^ODULE  'sar-e  as  Appendix  C) 

4.  SUPP0RT3A  MODULE 


Zeoe^’SM  2.02 

LOC  OBJ  CODE  STMT  S0UPC?  STATEMENT 

1  SUPPORT3A  MODULE 
A LIS  TON  $TTY 

|  fc^**#**#*####*#*****##:*#**  **##**#****** 
«*  * 

*  SUPP0PT3 A  MODULE:  MODULE  THREE  FOR  * 

*  SECONDARY  STORAGE  PRIMITIVES  * 

*  FUNCTIONS  SUPPORT.  STRICTLY  * 

*  HARDWARE  DEPENDENT:  SHOULD  * 

*  MEET  STORAGE  DEVICE  REQUIRE-  * 

*  MENTS  FOR  INTERFACING.  * 

*  v 

*  NOTE:  DUPLICATE  OF  MONITOR  LOAD  CMD  * 

*  MODULE.  ~  * 

*  * 


CONST 4  NT 

RXR  :=  2 

TXR  :»  0 

PA?  :=  ? 

PORTAD  :=  %FFD9 

PORTBD  :*  %FFE1 

POH^AC  :*  %FFDB 

PORTEC  :»  %FFE3 


IDPCRT 
I C PORT 


“SFFCB 

%FFC9 


TCMD  :=  %FFD2 
TDT A  :=  %FFD0 


BUS  LOCK  :=%FFF9 

PUS' UNLOCK  :=%FFF3 

VINTR  :*  % ( 2  ) 000 100000000 0000 

VIBIT  :=  12 
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ESCAPE 

=  %13 

PS 

=  %08 

lindel 

=  %7? 

CR 

=  %0D 

LF 

=  %0K 

TXOFCH 

=  *13 

TXONCH 

=  *11 

I  NS  12 

=  128 

!  INT3UF  SIZE 

OOTSIZ 

-  128 

!  0UT3UF  SIZE 

RBSIZ 

=  256 

!  RING  BUFFER 

!  BIT  POSITIONS  IN  MONITOR  FLAG  WORD  ! 

TRPMDE 

=  0 

ISTOP 

=  1 

OSTOP 

=  2 

SNDMDE 

=  3 

LDMDE 

=  4 

ESC 

*  5 

TXMSK 

=  *6 

EXTERNAL  PRNTBF 

PROCEDURE 

EXTERNAL  GETNXT 

PROCEDURE 

EXTERN  'L 

e:or 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERNAL 

GETADR 

PROCEDURE 

EXTERN  *L 

GMCZAD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNAL 

CONCERT 

PROCEDURE 

EXTERN »L 

P3UFNC 

LABEL 

EXTERNAL  SNDMSG 

PROCEDURE 

EXTERNAL  CCNVW 

PROCEDURE 

INTERN  'L 

$SECTION  DATA  DEC 

$ABS  0 

0000 

INTBUF 

ARRAY 

'128 

BYTE' 

0060 

OUTBUF 

ARRAY 

.126 

BYTE' 

0100 

RNGBUF 

ARRAY 

'256 

BYTE' 

0200 

MCZBUF 

ARRAY 

'256 

BYTE' 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

NXTPTR 

WORD 

030 A 

GETOUT 

WORD 

030C 

MCZPUT 

WORD 

030E 

MCZGET 

WORD 

0310 

MFL’GS 

WORD 

0312 

RETRY 

WORD 

0314 

ADR  STR 

WORD 
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.'316 

2316 


rw  N  _AE  H  WORD 
START  3DR  WORD 


$SECT I CN  LCAD_?RCC 
<  p  EL  0 


GLOBAL 

2000  FNA*E  PROCEDURE 

■*  * 


FNAME: 

RESETS  TWO  PTRS  TO  :1CZEUF  * 

* 

AND  CHECKS  FOR  FILENAME.  * 

ft##***###* 

I****#*##*:*##:;:#**###*#*#*#*##8!'-*  { 

entry 

2000 

4DE8 

CLR 

MC  ZGET ( R14 ) 

0002 

030E 

0004 

4D?8 

CLR 

MC  ZPUT  ( R 14 )  !  RESET  BUFFS':  ! 

0006 

030C 

0003 

34CA 

LDA 

R10.R12 .#GSTNXT  ' 

000 a 

0000* 

000C 

1FA0 

CALL 

?R  13  !  SKI?  CMD  ARC  ! 

000? 

0A0P 

CPS 

RL0 , # ' k' 

0010 

4141 

0212 

??11 

JR 

C.DUN 

0014 

0A03 

CPE 

RL0,#'Z'+1 

0016 

5B5B 

0016 

EF0E 

J? 

NC.DUN  !  1ST  CHR  IN  (”..Z)  I 

C01A 

76CA 

LDA 

R10,GETNITfR12 ) 

001C 

0000* 

001 E 

1FA  0 

CALL 

0-10  !  SKI?  TO  NEXT  AEG  ! 

0020 

EGO7 

JR 

Z , NO  ADR  !  NO  NEXT  ARG  ! 

0022 

76  CA 

LDA 

?1C,GSTADR(R12) 

0024 

0000* 

0026 

1FA0 

CALL 

0R10  !  JET  USER  SPECIFIED  ! 

!  ADDRESS  ! 

0026 

A13B 

LD 

311, S3  !  SAVE  USER  ‘DR  ! 

002A 

6FE3 

LD 

ADR_STR ( R14 )  ,R3 

002C 

0314 

002E 

9E08 

RET 

NO 

APR: 

0030 

210B 

"LD 

Rll, #*FFFE  !  SIGNAL  TO  USE  f-’CZ  ! 

0032 

FFF? 

!  ADDRESS  ! 

0034 

9E08 

RET 

DUN: 

0C36 

3D9P 

CLP. 

R9 
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0038 

34CA 

LT  A 

R10.R12 ( *EROS) 

003A 

0000* 

003C 

1EA9 

J? 

(?R10  !  ERROR,  RTN  TO  EXEC 

003F 

END  FN'MF 

GLOBAL 

003E 

CMEPAS  PRCC 

EDURE 

5  SUSS#*##  ###*>!«  a***##*## 

♦ 

* 

*  CMEPAS: 

LOAD  CMD  PASSING  MECHANISM  * 

* 

SENDS  'B; '  PLUS  CONS  C^D  * 

*  LINE  TO 

MCZ  AND  CKS  RESPONSES  FO?  * 

*  GOOD  280  PROGRAM  LOAD.  * 

■* 

*  REG  USE 

:  RETURN  NZ  IF  Z60  LOADED  * 

* 

Z  IF  NOT  * 

* 

####*** Jit#**:;:#*##:**###*#**!*#***#*#####*##  i 

ENTRY 

003F 

67F5 

BIT 

MFLAGS ( R14) ,#ESC  !  CE  FOR  ESCAPE 

0040 

0310 

0042 

E602 

JP. 

Z , GCMD 

0044 

8D41 

SETFLG 

Z 

0046 

9E08 

PET 

GCMD : 

004a 

C242 

LDB 

FH2,#'B' 

004A 

CA3B 

LDB 

RL2, # ' ; ' 

004C 

6FE2 

LD 

0UTBUF'R14),P.2  !  LOAD  IN  IT  'Bf 

004E 

0080 

!  FOR  BPIEF  MODE  ! 

0050 

76  F2 

LEA 

R2,0UTBUF(R14 ) 

0052 

0080 

0054 

A921 

INC 

?.2,#2 

0056 

76E1 

LEA 

HI  ,INTBUF(R14 ) 

0058 

0000 

00  5 A 

2100 

LD 

R0,#%40  !  LD  CMD  IN  OUTBUF  ! 

005C 

0040 

0C5E 

BB11 

LDIR 

Q32.@Ri.ae 

0060 

0020 

0062 

76*1 

LEA 

R1 ,0UT3UF(R14) 

0064 

008? 

0066 

0101 

ADD 

P.l  ,#%80 

0060 

0080 

006  A 

6FS1 

LE 

0UT?TR(R14) ,31 

006C 

0306 

006E 

DFB6 

CALR 

CUTSTM  !  OUTPUT  BUFFER  ! 

0070 

DFE7 

C«LR 

SKIPLN  !  SKIP  MCZ  ECHO  ! 
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3072 

3FD4 

CALK 

MCZCOM 

!  WAIT  RESPONSE 

0074 

0  5  09 

CPB 

:'.L1,«'3' 

0076 

4242 

0078 

EE02 

JR 

NZ  .LDSTAT 

007 » 

DFEC 

CAL5. 

SKIPLN 

!  SKIP  MCZ  ECHO  ! 

007C 

DFD9 

CAL" 

MCZCOM 

i  WAIT  RESPONSE  ! 

!  VERIFY  LOAD  STATUS  ! 

LDST  ?T : 

0071 

0A09 

CPB 

RL1, #'9' 

!  TEST  LEGAL  ! 

3080 

3939 

0092 

E60E 

JR 

Z.RECACK 

!  ACKNOWLSBGEMEN 

0064 

0A09 

CPB 

BL1,#'0 ' 

0096 

3030 

eees 

2603 

JR 

Z.RECACK 

!  REC  GOOD  ACK  ! 

008A 

0A09 

CPB 

rli,#'?' 

209C 

3737 

008? 

2609 

JR 

Z.RECACK 

*  NO  ACKNOWLEDGEMENTS  R2C 

SI7ED  ! 

2RMS3: 

ce90 

DFU9 

C5L5 

RECMSG 

!  GET  MCZ  MSG  ! 

0092 

34CA 

LDA 

R1 0 , R12 ( #SNDCHR ) 

0094 

0000* 

?e96 

IF  A.  0 

CALL 

3R10 

!  SEND  TO  CONS  ! 

0098 

0A08 

CPB 

?L0,#LF 

009A 

0A0A 

009C 

9E06 

RFT 

Z 

»  DONE  ! 

0092 

28  F8 

JR 

ERMSG 

!  ACKNCWLEDG 

E  RECEIVED  ! 

.RECACX: 

00A0 

8D43 

R2SFLG 

Z 

!  RETURN  NZ  ! 

00A2 

9208 

RET 

00A4 

END  CMUPAS 

] 

I 


GLOBAL 

SKPB  LABEL 

00 A4  SKIPLN  PP.CC  SLURS 

SEIPLN :  SKIP  RECEIVED  LINS  FROM  * 

MCZ;  RETURN  FIRST  CH*R  OF  * 

NEXT  LINE.  * 

a# 

REG  USE:  RETURN  RL1  =  1ST  CHR  * 

AND  NZ  I?  ESC  * 


ENTRY 


00A4 

DFE3 

CALR 

RECMSG 

! 

SKIP  OVER  LINE  ! 

00*6 

0A08 

CPB 

?.L0,*CR 

; 

THRU  CR.LF  ! 

00A8 

0D0D 

00  A  A 

EEPC 

JR 

NZ  , SKIPLN 

SKPB: 

00AC 

2101 

LD 

R1 ,#%3000 

i 

DELAY  FAC TOP  ! 

00AE 

3000 

!  MAIN  LOOP 

FOR  RECEIVING 

CHAR  ! 

LOOP1 : 

00B0 

61S0 

LD 

R0,mczgst;ri4) 

0  0B2 

030E 

00E4 

4BS0 

CP 

50 ,MCZPUT(P14) 

!  TEST  FOR  RFC  CHR 

00B6 

030C 

00B8 

EE03 

JR 

NZ, RECHR 

; 

YES .  ! 

00BA 

AB10 

DSC 

Rl,#l 

! 

NO,  WAIT  AWHILE  ! 

00PC 

EEFS 

JR 

NZ  ,LOOPl 

00BE 

9E06 

PET 

Z 

; 

FORCED  EOL  ! 

RECHR : 

00C0 

DFFB 

CALR 

MCZCOM 

C0C2 

0*09 

CPB 

RL1, # '  ' 

J 

CK  1ST=PRNT  CHR  ! 

00C4 

2020 

30C6 

9E0D 

RET 

PL 

00C8 

DFF5 

CALR 

RECMSG 

00CA 

E8F0 

JR 

SKPB 

00CC 

END  SKIPLN 

* 

>!< 

# 

* 

if 

* 

# 
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03CC 


MCZCOM  PROCEDURE 
* 


*  •'.:  -.'■-  #  :‘fi  *  *  :\i  #  sje  #  :fc  sjs  *  if 


Jr 

MCZCOM: 

LOOPS  WAITING  FOR  RECEIVE 

CHAR  FROM  MCZ  BY  SEEING  IF 

# 

MCZBUF  GETS  CHAP .  DOES 

* 

& 

ADVANCE  POINTER. 

* 

* 

REG  USE 

:  RETURN  RLl  =  CRR 

si* 

;|s 

ENTRY 

00CC 

eiF0 

LD 

R0 ,MC ZGET ( R14 )  !  CHECK  MCZBUF 

00CF 

O30E 

20D0 

4RE0 

C? 

R0 .MCZPUT ( R14 )  !  POINTERS  ! 

00D2 

030C 

J0D4 

F6F'0 

JR 

Z. MCZCOM  !  WAIT . ! 

C0D6 

34  r» 

LD.8 

R 1 0 , 3 12 ( #GMC  Z  A  D ) 

00D8 

0000* 

00EA 

1FA0 

CALL 

3R10  !  GET  CHAR  FROM  BUF 

^0DC 

2029 

LDB 

RL1.0R2 

30DE 

9E08 

RET 

00E0 

END  MCZCOM 

0050 

^ECMSG  PROCEDURE 

*  * 


*  RECMSG:  LOOPS  WAITING  FOR  RFC  CHii  * 

*  FROM  MCZ.  GETS  CHAP  AND  - 

-  EO  NOT  ADVANCE  BU?  ?TR .  * 

*  # 

*  REG  DSE :  RETURNS  RL0  =  CHF  * 

*•*  :': 

T  1 


ENTRY 


00F0 

00E2 

6150 

030E 

LD 

R0 ,MC  ZGET (R14 ) 

30E4 

30E6 

4EE0 

030C 

CP 

R0 , MCZ PUT (R14 ) 

! 

CK  FOR  EEC  ! 

00E8 

E6FB 

JR 

Z.  RECMSG  ! 

WAIT 

f 

00EA 
00  EC 

34CA 

0000* 

LDA 

?10,P12(#GMCZAD) 

C0EE 

1FA0 

CALL 

OR  10  ! 

GET 

1ST  CHAR  ! 

0070 

00F2 

6750 

030E 

LD 

MCZGET (F.14)  ,R0 

i 

RESTOFE  PTR  l 

00F4 

00F6 

00F? 

2028 

9508 

LDB 

R  ST 

END  RECMSG 

RL0.OR2  ! 

RTN 

CHAR  ! 
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GLOB  A L 


OUTSTM  L 

ABEL 

O0?3 

CUTLNE  PROCEDURE 

*  OOTLNE : 

OUTPUTS  A  LINE  OF  CHAR  FROM  * 

* 

OUTBUF  TO  MCZ  WITH  CS  AT  * 

$ 

END.  * 

j. 

*  OUTSTM: 

OUTPUTS  A  LINE  CF  CHAR  W/CR  * 

FNTRY 

00F9 

61 E2 

LD 

R2 ,OUTPTR (R1 4 ) 

00FA 

0306 

C0FC 

0C25 

LDB 

GR2,#CR  ! STORE  CH  IN  3U?  ! 

00FE 

0D0D 

0100 

69E0 

INC 

OUTPTR IR14) ,#1  !  INC  PTR  ! 

0102 

03*6 

!  NO  CP  ENTRY  POINT  ! 

OUTSTM: 

0104 

76F1 

LDA 

R1 ,OUTBUF( R14 ) 

3106 

7060 

!  MAIN  LOOP 

! 

CVRAGN : 

0108 

2019 

LOB 

RL0.OH1 

010A 

A910 

INC 

R1 

010C 

34CA 

LEA 

R10, R12 :#SNDMCZ  ) 

01  ?F 

7000* 

0110 

1FA0 

CALL 

Or  10  !  SND  CHR  TO  MCZ  ! 

0112 

v«03 

JR 

Z, FINIS 

0114 

4BF1 

CP 

R1,OtJTPTR(R14) 

0116 

0306 

0119 

F7F7 

JR 

C.07RAGN  !  CK  IF  3UF  EMPTY  ! 

!  FINISHED, 

RESET  OUTPTP ( nl4 )  AND  BLANK  OUTBUF 

FINIS: 

01 1A 

76E2 

LDA 

R2  ,0UTBU?:R14)  !  RESET  POINTER  ! 

011C 

0080 

0111 

6FE2 

LD 

OUTPTP (R1 4) ,R2 

0120 

0306 

0122 

2100 

LD 

Rv?,#CUTSIZ/2 

0124 

0040 

0126 

AB00 

DEC 

R0  ,#  1  !  SET  COUNT  ! 

0128 

4DF5 

LD 

OUTBUF(R14)  '  !  LOAD  COUNT  ! 

012A 

0080 

012C 

2027 

012E 

76F2 

LDA 

R2  .OUTBUF (R14 ) 

0130 

0080 
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2132 

6 121 

LD 

ill  ,R2 

2134 

API  1 

INC 

R1  ,#2 

”136 

*521 

LOT  ■ 

<?■;  1,922, ?0  !  CL.il  BUFFER  ! 

j  3138 

0013 

J13A 

9?  39 

R  FT 

j  013C 

1 

7ND  OUTLNE 

AEORTM  LABEL 

GCDPAK  la 

BEL 

V  ?13C 

BADP  4  K  PR 

OCFDURE 

«*» 

*T 

j 

V 

*  BADPAX : 

SENDS  RESEND  SIGNAL  {'?') 

1 

TO  VCZ  FOP.  EAD  CKSUM  0?  j.EC 

i 

* 

NCN-ASCI I  CHR. 

«V 

i 

* 

i 

*  ABORTM: 

SENDS  ABORT  SIGNAL  (  '9') 

I 

* 

Jjc 

WHEN  USSR  SELECTED. 

•r 

"ft 

*  GODPA.K: 

SENDS  ACK  SIGNAL  ('3')  FOR 

a. 

1 

* 

Yr 

RECEIPT  OF  GOOD  PACKET. 

JU 

it 

L 

1 

ENTRY 

j  ei3c 

C937 

LDB 

KL0t#'?'  !  LD  RESENE  SI 

n  1 

vi  ! 

1  013E 

F603 

JR 

OUTALL 

1 

l 

ABORTM : 

0140 

0839 

LDB 

r.L0,#'9'  !  LD  ABORT  SIG 

; 

0142 

F801 

JR 

OUTALL 

GCTPAK : 

0144 

C830 

LDB 

RL0,#'0'  !  LD  PEC  OK  SI 

n  i 

vx  ; 

OUTALL: 

0146 

6ES8 

LDB 

CUT3UFU14)  ,RL0 

0149 

0080 

014A 

76FD 

LDA 

R13 , 0UT3UF( R14 ) 

014C 

0090 

0141 

49D0 

INC 

.113,  #1 

3150 

6FED 

LD 

OUTPTR ( ? 1 4) ,R13 

0152 

0306 

0154 

E02F 

CALC 

OUTLNE  !  SEND  MCZ  SYSTEM 

0156 

D05A 

CALK 

SKIPLN  !  SKI?  ECHO  ! 

.  0159 

OT0fl 

RET 

1  015 4 

END  3ADPAE 
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GLOBAL 

21 5A  GETACK  PROCEDURE 

I  Jj!  nt $  # # jfcjje « X«  S."S #s;: *>?!(<  # # £ *  # # >* aje  # * i? ife  sjc ### X s*  J? 


$ 

7,t 

*  GETACK: 

RECEIVE 

AND  INTERPRET  ACK  * 

* 

FROM  MCZ 

.  GOOD  ACK  =  'C'  * 

* 

BAD  ACK  =  '7'  * 

* 

ABORT  =  '9'  * 

lit 

*  F.EG  USE 

:  RETURN 

Z , NC  IF  GOOD  ACK  * 

* 

NZ.NC  IF  3AD  ACK  * 

V 

$ 

NZ.C  IF  ABORT  * 

EMTRY 

015A 

D048 

CALR 

MCZCOM 

!  GST  CHE  ! 

015C 

0A09 

C?3 

RL1,#'0' 

!  CK  FOR  ACK  ! 

015S 

303e 

0160 

EE04 

JR 

NZ ,N ACK 

!  NO .  ! 

0162 

L060 

CALR 

SKIPLN 

!  YES,  REC  ACK  ! 

0164 

9D41 

SETELG 

•7 

L 

0166 

9D83 

F.ESELG 

C 

0166 

9E06 

RET 

!  CK  ECR  '7 
NACK  : 

'  AND  '9' 

NON-ACKNOWLEDGEMENTS 

216A 

0A09 

CPB 

RL1 , # '7 ' 

l  CK  FOR  RESEND 

016C 

3737 

016S 

Eie4 

JR 

NZ.ABRT 

!  NO. . . .  ! 

0170 

D067 

CALF 

SKIPLN 

0172 

8D43 

RESELG 

Z 

Cl  74 

8D83 

RFSFLG 

C 

0176 

9E03 

RET 

!  CHECK  EOF 
ABRT: 

ABORT  ! 

017e 

0A09 

CPB 

RL1 , #  '9  ' 

017A 

3939 

017C 

E602 

JR 

Z, ENDIT 

!  YES,  ABORT... 

017E 

D050 

CALF 

RECMSG 

!  GET  ANOTHER  CE 

0180 

S8EC 

JR 

GETACK 

!  TRY  AGAIN. . . . 

ENDIT: 

0182 

D070 

CALR 

SKIPLN 

0184 

SD43 

RESELG 

Z 

0186 

8D81 

SETELG 

c 

0188 

9E08 

RET 

018A 

END  GETACK 
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LI  NR  CT  PROCEDURE 

>*  * 


*  LINPCT:  RECEIVES  LINE  OF  CH».~  FROM  * 

*  MCZ  AFTER  RECEIPT  OF  '/',  * 

*  AND  STORES  IN  INT3UF ,  ADDING* 

*  CF.  AT  END  AND  FILTF?  I  NO  OUT  * 

*  CONTROL  CHARACTERS.  :<20U)  * 

*  (TRUNCATES  AFTE°  30  CHAR)  * 


ENTRY 

!  WAIT  FOR  ASCII  /  ! 


0ieA 

D056 

CALR 

RECMSG 

019C 

0A09 

C?B 

p.Le,*'/' 

?19E 

2F2F 

0190 

EEEC 

JR 

NZ  .LINPCT  !  W  AIT  ! 

!  BEGIN 

STORING  CHARACTERS  ! 

0192 

76E4 

LDA 

?4. INTBUF( R14  ) 

0194 

0000 

OIS'S 

CB50 

LDB 

RL3 , #80  ! S  ?T  LINE  LEL’GT 

!  STORE 

CHAR  IN  INTBU?  ! 

LOPSTR: 

0i9e 

D05D 

CALR 

RE CMS 5  !  GET  CHAR  ! 

C19A 

2E48 

LDB 

0F4.RL?  !  STORE  ! 

0190 

0A08 

CP3 

RL0,#CR  !  CK  FOR  2ND  ! 

319S 

0D0D 

01  >0 

EE32 

JR 

NZ.SKPSOM  !  GOT  CHAR..  ! 

01A2 

D07C 

CALR 

SKPE 

01A4 

9E09 

RET 

! CONTROL 

CHAP  FILTERED  AND  DEC  LINE  COUN 

SEPSOM: 

01A6 

0A09 

CP3 

F.L0  ,  #  '  ' 

01. A8 

2020 

01 A  A 

E7F6 

JP 

C. LOPSTR 

01  AC 

A  940 

INC 

R4,#l  !  GOOD  CHAR  ! 

01 A  E 

F30C 

D3JNZ 

RL3, LOPSTR  !  DEC  COUNT  ! 

fTRUNC  AT 

E,  TOO  MANY  CHAR  l 

LOPOVP. : 

01?? 

D?69 

CALF 

RECMSG 

31E2 

0A08 

CPB 

RLZ , #CR  I  LOOK  FOR  CR  ! 

31R4 

0D0D 

01B6 

FEFC 

JR 

NZ.LCPCVR 

01B8 

76ED 

LDA 

R13,INTBUF(R14) 

31BA 

3000 

013C 

010D 

ADD 

R13,#80 

01  BE 

0050 

01C0 

2srs 

LTB 

0R13.RL0 
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21 C2  9T(?8 
01C4 


RET 

END  LI  NFC? 


01C4  UNPACK  PROCEDURE 

»  *##*#*#*#*##*  ^a**##*#:)!*#**#*!^##:*##*:****::** 
'#  * 

*  UNPACK:  UNPACKS  RECEIVED  PACKETS  * 

*  FROM  MCZ  IN  INT3UF  AND  * 

*  LOADS  IN  SPECIFIED  MEMORY 

*  AREA.  ASCII  CHAR  ARE  CON-  * 

*  VErTED  TO  HEX  VALUES.  * 

*  * 


*  REG  USE:  INPUT  RH3  =  #BYTF  DATA  * 
ENTRY 


01C4 

A03C 

LD3 

RL4.RH3  l  SAVE  COUNT  ! 

C1C6 

DFD9 

CAL-. 

CONVAD  !  CON7  START  ADR  ! 

01C8 

61 E2 

LD 

R2 , DVN_ADR ( R14 ) 

01CA 

0316 

01CC 

eD24 

TEST 

12 

01CE 

FE02 

JR 

NZ, NOT  FIRST 

01 P0 

6FE1 

LD 

EVN_ADR (R14) ,Rl 

01D2 

0316 

NOT_FIRST: 

!  CHECK  FOR 

USSR  ENTERED  ADDS  FOR  LOAD  ! 

01D4 

0B0B 

C? 

Ell , #%FFFE 

31D6 

FFFE 

0119 

F601 

JR 

Z.USE  MCZADR 

?1D» 

MB1 

LD 

Rl, nil  !  USER  SPECIFIED  ! 

USE  MCZADR : 

OlDC 

76F2 

LDA 

R2f INT5UF( R14 ) 

?1DE 

^000 

01E0 

A  92? 

INC 

R2,#8 

CANDS: 

01F2 

DFF9 

CALF. 

Tr NHEX  !  CONVERT  2-ASCII  CHR  ! 

01E4 

2E18 

LDB 

0R1.RL0  !  STORE  IN  MEM  ! 

01S6 

A910 

INC 

Rl  ,01 

01F8 

FC04 

DBJVZ 

RL4, CANDS  !  CONV  AND  STORE  »LL  ! 

!  UPDATE  USER  SPECIFIED  ADDRESS  ! 

G1EA 

0B0B 

CP 

R11,#%FFFE 

01SC 

FFFE 

01  EE 

E601 

JR 

Z , NO  UPDATE  !  USE  MCZ  ADR  ! 

01F0 

A11B 

LD 

Sll.Ul  !  UPDATE  USER  ADR  ! 
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?  '**•'«**-* 


NO  U?D  'TE: 


01F2 

9E09 

R^T 

01F4 

END  UNPACK 

01F4 

TRNHEX  PROCEDURE 

|  st:#****!*  *#* 

s*  ##;;:#*#  s*  **:**#*#*#*  s*  #**###  s*  #  * 

** 

*  TFNHEX: 

CONVERTS 

;  TWO  ASCII  CHAR  FIT 

# 

«b 

INT3UF  TO  TWO  4-3IT  HEX  # 

.i. 

* 

AND  ADD 

TO  CXSUM. 

*l» 

# 

*  REG  USE 

:  INPUT 

R2  =  PTR  TO  1ST  CHR 

JU 

* 

RL3=  CKSUM  ACCOM 

* 

RETURN 

R2  =  UPDATE  RTF. 

* 

¥ 

R L3=  UPDATED  ACCUM 

❖ 

* 

P.L3=  HEX  VALUE 

* 

AND  C  IF  NON-ASCII 

*r* 

# 

NC  IF  ALL  GOOD 

'.‘e 

* 

# 

###### # ####*#  *#**#****###*#  *# ##*#*#*##*#  I 

ENTRY 

01F4 

DFF6 

C»LR 

ATOHEX 

!  CONVERT  1ST 

CHR  ! 

01F6 

9E07 

RET 

b 

01F0 

008B 

ADD3 

?.L3 ,  RL0 

!  ADD  TO  CKSUM 

! 

?  1 F  A 

B309 

SL* 

P0,#12 

!  MOVE  TO  H  NIBBLF  ! 

01FC 

000C 

01  FE 

PFFB 

CALH 

ATOHEX 

!  CONVERT  2ND 

CHR  ! 

?2?e 

9E07 

RFT 

C 

3202 

808B 

ADDB 

RL3.RL0 

0204 

8409 

ORB 

RL3.RH0 

!  COMBINE  NIBBLES  ! 

0206 

8083 

RESFLG 

C 

020fc 

9F08 

RET 

020A 

END  TRNHEX 

C20A 

ATOHEX  PROCEDURE 

*  #*###*##*#:{:## 
#  * 
*  ATOHEX:  CONVERTS  ONE  ASCII  CHAR  TO  * 

W  a  T  m  rrn  v  n  r  T^T\t  n  «'* 


*  4-BIT  HEX  NIBBLE.  * 

*  * 

*  REG  USE:  INPUT  R2  =  PTR  TO  CHR  * 

*  RETURN  R2  =  PTP.  +  1  * 

*  RL0=  HEX  NIBBLE  * 

*  # 


###!*#*!*##################*###*##########  » 
ENTRY 


020» 

2028 

LDB 

RL0.OR2 

020C 

A  9  20 

INC 

R2,#l  !  I 

020E 

34CA 

LEA 

R10,R12(#CONVERT) 
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OF.  10 


P»21P  0000# 

3212  IF**  CALL 

3214  9F08  RET 

0216  2ND  ATf'FEX 

3216  CONVAD  PROCEDURE 

5  *#*#£#**«**;::#*#  #*#8* S*!*:*:* *S<t  #*****!>! S*#****## 

*  * 

*  CONVAD:  CONVERTS  STARTING  ADDRESS  * 

*  CF  PACKET  DATA  TO  HEX  #.  * 

*  s’: 

*  REG  USE:  RETURN  R1  =  ADDRESS (HEX)  * 

*  * 

#«###$#######  #######««$$$## a*];:###**:!'#*'*##  | 

ENTPY 

0216  7«E2  LDA  R2, INTBUF'R14) 

0218  0000 

321 A  D011  CAL  r  TRNHFX 

021C  A081  LD3  RH1.RL0  !  STORE  1ST  BYTE  ! 

021F  D016  CAL?.  TRNHEX 

0220  A0e9  LDB  RL1.RL0  f  STORE  2ND  BYTE  ! 

0222  9E08  RET 

0224  END  CONVAD 

0224  CHKPAK  PROCEDURE 

{  $  &  sje  *  sjt * sje #  $  *  *  #  *  i^aje  *  #  $  *  #  sj:  »ts  *s  *  #  £  *  « sjc  aji  a*  #  #  *  #  ijc  «  *  £ 


*  * 

*  CHKPAK:  C5  RECEIVED  MCZ  PAC  CKSUM  * 

*  AGAINST  ACCUMULATED  HEX  * 

*  VALUE  CKSUM  AFTER  ASCII-TO-  * 

*  HEX  CONVERSION.  * 

*  * 

*  REG  USE:  RETURN  RH3  =  BYTE  COUNT  * 

*  AND  C  IF  BAD  OR  * 

*  NON-ASCII.  * 

*  S* 


ENTRY 


0224 

76E2 

LDA 

R2 « I NTBUF( R14 ) 

0226 

0000 

0228 

C303 

LDB 

RH3,#3 

022A 

DFE9 

CALF. 

CHKSUM 

!  CK  1ST  CKSUM  ! 

022C 

9E07 

RET 

C 

!  BAD  CK  ! 

022E 

8C34 

TESTS 

RH3 

023? 

9E06 

RET 

Z 

!  NO  DATA  ! 

0232 

93F3 

PUSH 

0R15 ,R3 

!  SAVE  BYTE  COUNT 

0234 

EFEE 

CALR 

CHKSUM 

!  CK  2ND  CKSUM  ! 

0236 

97F3 

POP 

R3.0P.15 

0238 

9F08 

RET 

023A 

END  CEKPAK 

323  *  CHKSUM  PROCEDURE 

#  * 

*  CHKSUM:  CONVEFTS  ALL  REC  ASCII  CHR  * 

*  IN  PAC  TO  HEX  AND  AC CUM  NEW  * 


*  CKSUM.  COMPARE  CKSOMS  ANE  * 

*  REPORT  DIFFEF.ENCES  .  * 

*  # 

*  REG  USE:  INPUT  R2  =  PTR  TO  PAC  * 

*  RH3=  n  CHR  P 4 1  ?S  * 

*  RETURN  RH3®  BYTE  COUNT  * 

*  RL3=  NEW  CKSUM  * 

*  RH3=  REC  CKSUM  * 

*  AND  C  IF  EAD  OR  * 

*  NON-ASCII  REC  * 

*  * 


set#######*####  [ 

ENTRY 


*23 4 

8CB8 

CLRB 

RL3 

!  RESET  CKSUM  ! 

323C 

D025 

AB:CALR 

TRNHEX 

!  CONVERT  PAIRS  ! 

023E 

PE07 

RET 

C 

024? 

F303 

DBJNZ 

F.H3,  AB 

!  CONTINUE .  ! 

3242 

A  383 

LDE 

RH3.RL0 

3244 

93F3 

PUSH 

0S15.R3 

!  SAVv  BYTE  CNT  ! 

0246 

D02A 

CAL? 

TPNHEX 

!  CONVERT  NEXT  TWO 

3248 

97F3 

POP 

R3  fLaR15 

324A 

SE07 

RET 

C 

?24C 

BARS 

CP5 

RL0.RL3 

!  COMPARE  CXSUMS  ! 

324E 

9F36 

RET 

Z 

!  GOOD  CK. . .  ! 

0250 

8181 

SETFLG 

C 

!  BAD  CKSUM  ! 

3252 

9E08 

F.ET 

3254 

END  CHKSUM 

3254 


GLOBAL 

LOADFL  PROCEDURE 

|  sfcJjtsitjJtsSr s’:# 

#  s* 

*  LOADFL:  RECEIVES  PACKET  FROM  MCZ  I"  * 

*  FOLLOWING  FORMAT:  * 

#  4 


*  <ADF.XCNTXCKS1XDTA>.  .  .<DTAXCKS2>  * 


#  * 

*  ADR  =  START  ASR  IN  Z&000  MEM  * 

*  CNT  =  *  DATA  WORDS  * 

*  CKS1=  CKSUM  OF  <ABR>  +  <CNT>  * 

*  <DTAX  .  XDTA>  =  33  DATA  WORDS  * 

*  CKS2=  CKSUM  OF  DATA  HEX  VALUES  * 

*  # 

*  PROCEDURE  VERIFIES  CKSUMS  BEFORE  * 

*  STORING  DATA  IN  Z8000  MEM.  PACKETS  * 

*  ARE  ACK  FOR  WITH:  '0'  =  GOOD  * 

*  '7'  =  RESEND  * 

*  '9'  =  ABORT  * 

*  IF  REC  '//'  FROM  MCZ,  ECHOS  WHAT  * 

*  RET  NEXT  TO  CONSOLE  AND  ABORT.  * 

*  « 


! 

i 


ENTRY 


0254 

4DF8 

CLR 

DWN_ADR(R14) 

I  SET  ENTRY  ADR  BLOCK 

0256 

0316 

3259 

U12D 

CALR 

FNAME  ! 

CK  FILENAME  ! 

025A 

65E4 

SET 

MF LAG S  ( P.14)  , #LDMDE  (SIGNAL  LOAD  IN  ! 

025C 

3310 

! PRCGRESS ! 

025E 

Dill 

CALR 

CM  DP  AS  I 

SND  CMD  TO  MCZ  ! 

0260 

9E06 

RET 

Z  ! 

Z80  PROG  NO  LOAD  ! 

PECLOP: 

0262 

D06D 

CALR 

LINRCT  ! 

GET  PACKET  ! 

0264 

76E2 

LDA 

R2,INT3UF:R14) 

0266 

0000 

0266 

2028 

LDB 

RL0.0P.2 

026A 

0A38 

CPB 

RL0t# '/'  ! 

CK  FOR  '//'  ! 

026C 

2F2F 

026E 

*E10 

JR 

NZ.CONTIN  (NO,  CONTINUE...! 

0270 

76E1 

LDA 

R1 ,0UT3UF(R14) 

! YES , ! 

0272 

0080 

0274 

2103 

LD 

R3,#%20 

0276 

0020 

0278 

3321 

LDIR 

9R1,3R2,R3  ! ERROR  MSG  SETUP  ! 

027A 

0310 

027C 

76E1 

LDA 

R1  ,OUTEUF'R14) 

027E 

00e? 
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n2S? 

3131 

A  DD 

:-i  ,*%20 

0282 

0320 

,294 

6FE1 

LT 

CUTPTR ( R14 ) , R 1  ! SET  OUTPTR  ! 

3286 

0336 

3289 

34CA 

LDA 

R10.R12  ,/APBUFNC  ) 

323? 

003?* 

328C 

1FA0 

CALL 

5?  10 

32SE 

9E08 

RET 

CO NT  IN : 

3290 

6?  75 

BIT 

MFLAGS (R1 4) ,#ESC  !  CK  FOR  ABORT 

3292 

0310 

3294 

EE34 

JR 

NZ.A3T  !  YES ,  ABORT. . . ! 

0296 

D03A 

CAL? 

CPKPAK  !  CK  CKSUMS  ! 

3298 

E1=’02 

JR 

NC  ,GTLD  !  GOOD  LOAD  ! 

329* 

D330 

C  M~ 

BPDP.AK  !  SEND  NON -ACS  ! 

329C 

F8E2 

JR 

RECLOP  !  TRY  AGAIN  ! 

!  CHECK  FOR 

LAST  PACKET  AND  PRINT  <ENT  ADR>  ! 

GDLD : 

329E 

8088 

CLR3 

RL3 

32*3 

8139 

ADD 

P8.R3  !  ACCUM  NUMBER  BYTES  ! 

!  OF  TRANSFER  ! 

02A2 

eC34 

TFSTB 

RH3  !  CK  CCUNT=0  ! 

32A4 

F528 

JR 

NZ ,3 TOR  !  OK,  BEGIN  STP  ! 

32A6 

3032 

CALR 

GODPAK  ?  SEND  GOOD  ACK  I 

32  *9 

54E0 

LDL 

RR0,INT3UF(R14) 

32AA 

0000 

32AC 

76ED 

LDA 

R13,0UTBUF:R14) 

32  ‘E 

0080 

3250 

010D 

ADD 

?.13,#%0C 

32B2 

000C 

!  CHECK  FOR 

USER  SPECIFIED  »DDS  ! 

0234 

0309 

CP 

R9,#%AAAA 

3236 

A  AAA 

3238 

F61D 

JR 

Z , END  LOAD  !  NC  ECHO  TO  CONS  ! 

02EA 

0B0B 

CP 

R11,#%FFFE  !  CK  FOR  LOAD  A D F  ! 

32SC 

EEEE 

323E 

F6C9 

JR 

Z.SAME  ADR  !  USE  MCZ  ADR  ! 

32C3 

6FED 

LD 

0UTPTRrR14) ,R13  !  SET  OUTPUT  ADR 

32C2 

0306 

32  C4 

61F5 

LD 

R5,ADR_STR(R14)  !  GET  USER  ADR  ! 

32C6 

0314 

32C8 

76C  A 

LTA 

R10 , CONVW (R12 ) 

02C  A 

e00e* 

02CC 

1FA0 

CALL 

UR  13  !  CONVERT  TO  ASCII  AND 

J  AND  STORE  IN  CUTBU?  ! 
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32CF 

E801 

JR 

FI N_BUF 

SAME  »DR 

• 

• 

32D3 

1DD0 

lCl 

(AR13.RR0 

FIN  3UF: 

02D2 

3402 

LD»? 

R2.ENTADR  !  LOAD  ENTF.T  LABEL! 

02D4 

0040 

32re 

76E1 

LEA 

R1,0UTBDF(R14) 

02D8 

0090 

02DA 

2100 

LD 

EZ,#6 

02DC 

0006 

32DF 

*321 

LDIR 

OR 1 , 0R2 , 30 

02E0 

0010 

02E2 

76ED 

LDA 

R13,0UTBUF(R14 ) 

?2E4 

0090 

02E6 

010D 

ADD 

E13 , #%10 

02E8 

0010 

?2T» 

6FV3 

LD 

OUTPTR(E14) ,R13 

02  FC 

0306 

02EE 

34C  A 

LDA 

R10,R12(#?RNTBF) 

02  F* 

0000* 

02F2 

1EA0 

CALL 

GE13  !  PRINT  MESSAGE  ! 

END  LOAD 

• 

• 

02F4 

9F08 

EST 

STOR : 

02F6 

D071 

CALR 

CCNVAD 

02F8 

D0DB 

CALL 

GODPAK  !  SEND  ACK  ! 

02FA 

D09C 

CALR 

UNPACK  !  UNPACK  AND  STORE  ! 

02FC 

E8B2 

JR 

RECLOP  !  CONTINUE....! 

ABT: 

02FE 

3402 

LD  AH 

R2.EMSG 

0300 

000A 

0302 

34C  A 

LDA 

R10,R12(#SNDMSG) 

0304 

0000* 

0306 

1FA0 

CALL 

OR  10  !  SEND  MESSAGE  ! 

0308 

30E5 

C  8  LR 

ABORTM  !  SEND  ABORT  ! 

030A 

9E08 

RET 

030C 

END  LOADFL 

EMSG: 

030C 

07 

BVAL 

7 

030E 

2F41 

WVAL 

'/A' 

0310 

424F 

WVAL 

'BO' 

0312 

5254 

WVAL 

'RT' 

0314 

0D 

BVAL 

%0D 

FNTADR : 

0316 

454E 

WVAL 

'EN  ' 
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33  IF 

5452 

tfVAl 

'TR  ' 

C31A 

5920 

W  V  A  L 

'Y  ' 

331 C 

£04? 

V  ’r  A  L 

'?0' 

331? 

494E 

W  V  A  L 

'IN' 

?320 

£420 

WV.»L 

'  m  ' 
l 

END  SUPPCRT3A 
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V «r- 


A PPSNiriX  E  -  Support  Programs 


A.  TEXT  FILE  TRANSFERS 


*te  transfer  test  files  from  the  MCZ  microcomputer  RIC 
system,  use  the  following  procedures. 


1.  Bootup  SASS  monitor  program  as  described  in  Appendix  C. 


2.  Bootup  INTEL  MDS  system  with  CP/M  disk  having  Z8XFER 
program . 


3.  Connect  cable  to  MDS  system  TTY  oort  and  to  the  SASS 
'3'  corrector  (to  replace  line  printer). 


4.  Enter  'transparent'  mode  of  SASS  monitor  operation  to 
operate  withir  the  MCZ  RIC  operating  system,  by  the 
following  action: 

TYPE  "0  <CR  >’* 

(displays  BIO  prompt  '%') 


5.  Setup  to  transfer  text  file  by: 

TYPE  ’'PRINT  <Filename>" 
(Note:  no  <CR>) 


6.  On  the  MDS  system,  execute  ZSXEEE  program  selecting 
text  file  transfer  ('T'). 


7.  Cn  SASS  (RIO)  system,  type  <CR>  to  start  transfer. 


After  the  entire  file  has  been  displayed  on  SASS 
terminal,  depress  any  key  on  MDS  terminal  to  end  transfer. 
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zaoor/c?M  transfer  vcdule 


ZSXF  ER  : 

procedure  options  :wain)  ; 

^INCLUDE  'DIOMOD.DCL'J 
^REPLACE 


TRUE 

BY 

'l'B 

BUFBYT 

BY 

8, 

FALSE 

BY 

'0'b; 

DCL 


•NSWER 

CHAR(l)  . 

FN 

CHAR (11)  VAR 

I 

FIXED, 

W  *IT 

BIT(l). 

MEM 

FIXED ( 15  ) , 

NUM3UF 

FIXEDU5) , 

REPLY 

CEAR(l), 

CMDBUF 

CHAR (80)  VAR 

C 

C  HA R Cl). 

C7CNT 

FIXED( 15 ) , 

TMP 

FIXED ( 15 ) , 

AOCUM 

EXT. 

CHI 

EXT. 

CH2 

EXT, 

PT1 

FIXED (15 ) , 

PT2 

FIXED ( 15  ) , 

DFX 

FIXZD(IS), 

ODDSVN 

B  IT  ( 1  )  , 

ANSR 

EXT, 

HVXVAL 

EXT, 

C3JXFR 

ENTRY  EXT, 

TXTXFR 

ENTRY  EXT; 

/ ######  ####*###  **  ##  *3)t  Si**!*##  >?  #*###»#  #3*#  #*#*:*** 

*  PROGRAM  INTERACTIVE  HEADER  SECTION  '* 


PUT  SKIP  LIST (  'Z8XFSR 
PUT  SKI?  LIST ( '  *** 

PUT  SKIP  LIST ( ' 

PUT  SKIP  LIST ( ' 

PUT  SKI?  LIST  v ' 

PUT  SKI P( 2)  LIST(  ' 


SASS  TO  CPH  ASCII-HEX  TRANSFER  PROGRAM ' ) 
NOTE: ') J 

CABLE  CONNECTIONS  BETWEEN  THE'); 

SYSTEMS  VARY  AS  TO  TYPE  OF'); 

FILS  BEING  TRANSFEREE  ' ) J 

TYPE  <CR>  TO  CONTINUE..'),' 
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SIS##  $ # # # #5* $ *t*t w * :*##« $!>;#*!#* * **** * #  '•* :;: %V& * 

*  DETERMINE  TRANSFER  TYPE  * 


*  #  s*  «$  $  ;jc  $  $  V  #  #  5|:  Jjt  #  ***  #  *  «  *#  *t  a*  a*  #  a*  a,*#:;;  a?#  a*  *  >*  #  #  »!=  #  a*  a*  #  ^Sr#  ❖  # 


/ 


PUT  SKI Pf  2 )  LIST ( 'IS  FILE  A  TEXT  OR  CODE  FILE?  (T/C)')? 

wait=truf; 

DO  WHILE  ' WAIT=TRUE ) ; 

C FT  LISTf  ANSWER ) » 

IF  ( ANSWER  =  'T'l  THEM 
CALL  txtxfr; 

ELSE 

IF  (ANSWER  =  'C')  THEN 
CALL  OBJXFR? 

ELSE 

PUT  SKIP  LIST( 'INVALID  ENTRY'!? 

END? 

END  Z8XFER? 
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2.  TXTXFR  MODUL 


TXTXFR : 

proc; 

%  I NCLUDE  'DIOMOD  .  DCL  ' 
^REPLACE 


T-UE 

BY 

'l'B. 

BUFBTT 

EY 

FALSE 

BY 

'0'b; 

DCL 


ANSWER 

CHAR ( 1 }  EXT, 

FN 

CHAR (11)  VAR  EXT, 

I 

FIXED  EXT, 

WAIT 

BIT  C 1 )  EXT, 

MEM 

FIXED ( 15 )  EXT, 

NUMEUF 

FIXED ( 15 )  EXT, 

REPLY 

CHAR(l)  EXT, 

CMD3UF 

CH  (80 )  VAR  EXT, 

C 

CHAR ( 1 )  EXT, 

CP.CNT 

FIXED(15)  EXT, 

TMP 

FIXED{ 15 )  EXT, 

ACCUM 

EXT, 

CHI 

CHAR (1 )  EXT, 

CH2 

CHAR ( 1 )  EXT, 

?T1 

FIXED ( 15  )  EXT, 

PT2 

FIXEDU5)  *XT, 

DEX 

FIXED( 15 )  EXT. 

HFXVAL 

E I T ( 8 )  EXT, 

ODDEVN 

BIT (1 )  EXT, 

RECTTY 

ENTRY  EXT; 

/*  TERMINATE  TRANSFER  AND  SAVE  THE  FILS  */ 
TERMINATE: 

proc; 

NUM3UF  =  DIVIDE 'MEM , BUFBYT ,15)5 

/*  WRITE  BUFFERS  TO  DISK  FILE  */ 

IF  MEM=0  THEN 

do; 

PUT  SKIP  LIST('NO  DATA  TRANSFERED  ' ) J 
CALL  DELETE( ADDR (DESTFILS ) ) ; 

CALL  REBOOT ( ) ; 

end; 

MEM=0 ; 

DO  1=0  TO  MUMBUF-i; 

C  SLL  S  ETDMA ( ADDP ( MEMO  RY ( MEM )  ) ) » 
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*'M=MTM  *  EUFEYT; 

I?  WR SFQ  ADDR { DESTFILE  '■  )  ~=0  THIN 

do; 

PUT  SKI?  LI  ST (  'DISK  ITU  ' ,  : 

CALL  REBOOT ; ) J 

end; 

PUT  SKI?  LIST ( 'TRANSFER  COMPLETE.'); 

CALL  REBOOT (  ); 

end; 

*  TXTXFR:  PROCEDURE  FOR  TRANSFERRING  A  TEXT  * 

*  FILE  FROM  SASS  TO  CPM  VIA  A  CABLE  FROM  * 

*  THE  SASS  'B'  CONNECTOR  TO  THE  INTEL  TTY  * 


*  PORT.  CPM  WILL  INTERCEPT  SASS  CRT  TEXT  * 

*  DISPLAY  FROM  THE  MCZ  EDITOR.  * 

######  a*##!*#*#  Sjt###*  ##*=*#*  **  ##  ***#  a*#**  5,*  ******  / 


ECL 

1  DESTFILE  BASED(DFCB0( )  ) , 

^INCLUDE  'FCB.DCL'; 

DCL  MEMORY  '%0:0)  BIT (16)  3 AS  ED ; MEMPTR ( ) ) ? 

/****#****#*#*****#************************************ 
*  TFILE:  PROC  TO  DETERMINE  NAME  OF  FILE  * 

****************************************** ***********  / 


TFILE: 

proc; 

/*  READ  FILE  NAME  */ 

PUT  SKIP  LIST( 'WHAT  IS  THE  FILENAME?')? 

GET  LIST ( FN ) 5 

/*  PROCESS  OPTIONAL  DRIVE  PREFIX  V 
I  =  I NDEX (FN  , ' :  '); 

IF  1=0  THEN 

DESTFILE. DRIVE=0; 

ELSE 

do; 

DESTFILE. DRIVE-1? 

FN  =  SUBS  TR ( FN , I +1 ) J 

end; 

/*  GET  FILENAME  AND  TYPE  */ 

I  =  INDEX(FN  , ' .  '); 

IF  1=0  THEN 

do; 

/*  NO  FILS  SPECIFIED,  USE  '.TXT'  */ 
DESTFILE. FNAME  =  FN J 
DESTFILE. FTYPE  =  'TXT'; 

end; 
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ELS? 


do; 

DESTFILE  .  FNAME  =  SU5STR  (  FN  ,  1 , 1  -1 '  ; 
DESTFILE  .  FTYPE  =  SUES  TT-  (  FN  ,  I  *1  )  ; 

end; 

END  TFI LE  J 


/*  INIT  FCB  */ 

DFSTFILE . FEXT  =  0! 

DESTFILE .CREC  =  0J 

/*  OBTAIN  FILENAME  AND  CHECK  EOF:  EXISTING  FILE  */ 
CALL  tfile; 

IF  SEAR! ADD? (DESTFILE))  ~=  -1  THEN 

do; 

PUT  SKIP  LIST( 'DELETE  OLD  FILE?  (  Y  /  \i )  ' ) ; 
GET  LIST  .' ANSWER  )  ? 

I?  ( ANSWER  =  'Y'  )  THEN 

CALL  DELETE (ADDR( DESTFILE) ) ; 

ELSE 

CALL  REBOOT (  )  ; 

end; 

/*  OPEN  NEW  FILE  */ 

IF  MAKE ( ADDS (DESTFILE  )  )  =  -1  THEN 

do; 

PUT  SKIP  LIST (  'NO  DIRECTORY  SPACE'); 

C  "LL  REBOOT ( ) J 

end; 

/*  COMPUTE  3UFFER  SPACE  */ 

NUMPUF  =  DI VIDE ( MEMS I Z ( ) f BUF3YT ,15)5 
IF  NUMBUF=0  THEN 
ro; 

PUT  SKIP  LIST (  'NO  BUFFER  SPACE')! 

CALL  REBOOT (  )  5 

end; 


/*  MAIN  LOOP  CHECKING  FOR  KB  ENTRY  OR  TTY  RECEIVE  */ 
MEM=0 ; 

wait=true; 

DO  WHILE  :W'IT=TRUE); 

IF  BREAK (  )  =  TRUE  THEN 

CALL  terminate; 

IF  PECTTY  =  TFUE  THEN 

do; 

IF  MEM  <  NUMBUF  THEN 

do; 

MEMORY MEM )  =RDRDR(  ): 
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end; 

fnd; 

ro  txtx7";  ; 


MEM  =  VFM  +  1; 
i  i  'i  D  I 

ELSE 

do; 

PUT  SKI?  list; 'FILE  too 

call  reboot;); 

end; 

end; 
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3.  0B.7XFF  MO’>CLT 


OP.TXFR  : 

P°CC  I 

snrvjTvr  diomoddcl'; 

?ditd’ j(;r 


TRU? 

•av  '1  'a 

BUF^YT 

BY  129.' 

FA.ISY 

BY  '?'i; 

i'!  SWF  ?. 

PHA ? '  D  FXT, 

Tl1 

CHAR 'll)  VAR  FXT. 

i' 

FTXFF  FXT, 

W  a  I T 

•p IT  <"  1  >  FXT, 

M'qjM 

FIXFD'15)  FXT. 

^IXFB'IF'  FXT, 

;>T9ty 

Cn 9  R  ( 1 )  v7m , 

CMBFU? 

f 1 :?0)  CHAR'l)  FXT 

'v^ 

CHAR'l)  FXT. 

cr 

p  H  a  :>  ( l )  , 

CRCNT 

FIXFD ' 15 )  FXT. 

>T>MP 

FIXHT ' 15 )  FXT. 

AC  CUM 

FXT. 

HFXVAL 

BIT(a)  FXT. 

CHI 

CHAR ( 1 )  FXT, 

CH2 

SHAR'D  FXT. 

PT1 

FIX^D'15)  FXT. 

3T2 

FIXFD15)  FXT, 

D?X 

FIXETW15)  FXT, 

ODD7VM 

SITfl)  FXT, 

R7CTTY 

FNTRY  rXT , 

sTOHFX 

FNTBY  FXT? 
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/  ss*::*  s“  JS###  sjesje  s£  %:#$«$  s?######**?  Ws)c#  ###!** 

*  CBJXF":  Pr OC^^U""7  TO  T’-'ANSFE^  CODE  FROM  * 

*  v‘  7S03a'mpm por  to  c?M  T I LES  BY  USING  T°E  * 

«*  m?CT'ONIX  F0’:v'T.  CONNECTION  IS  FROM  * 

*  INTEL  TTY  5OET  TC  SPSS  CABLE  'A'.  CPM  * 

*  VI LL  ASS' J*E  THE  HOLE  OF  MCZ-RIC  SYSTEM.  * 

Jjt ## ## * >7 * ### #$>!:« * ### ###*!## a? St / 


DCL 

1  ^IEILE  RASFD (  PFC°fl  ■  )  )  , 

?  I^'CLUD?  'TCP  .DCL 
DC  L 

1  LCFILH  EASED ( ^FCBl '.  )  ) , 

^INCLUD*  'FOB. DCL'; 

DCL 

FVN3UF  'P0301  ?ITf  3 )  . 

CDDBUF  <2PP?)  R IT ^  3  )  , 

HECrl'F  '1:30^  CH.^R'll. 

FLAP  PIT-'  1 )  5 

S»?S  TO  CPM  CODE  FILE  T?  A  NS  FED  BY  TECT’ONlX  FEOMAT  #/ 

PUT  S^I?  LI  ST ( '  C?v  WILL  ASSUME  THE  MCZ-RIO  BOLE  FOP  TRANSFER '5 
PUT  SET?  LIST  (  '  SETUP:  CONNECT  CA3L2  TO  SASS  "  A  "  CONNECT 
PUT  SEIP  LI  ST (  '  TOR  a  AJD  TO  INTEL  TTY  PORT.'): 

PUT  SET1’  LIST  C  ENTER  <C?.B  V  HEN  READY...'); 

GET  LIST(PEPLY): 

CR= ' 

'  • 

I 


/  *  tf  #  #  *  *  #  *!  #  *?  #  *c  *t  *  £  *  #  ajc  s*  #  *c  :*  :ft  *  #  *  #  #  *  #  £  #  #  *  #  *  #  *?  >*  *  *  #  a$c  #  # * *  :*  #  #  *  *  # 

-  CFI L7 :  PROCEDURE  TO  DETERMINE  THE  * 

*  FILENAME  OF  THE  03JECT  FILES  * 


CFIL?: 

prccspure; 

/#  PF*D  FILF  NaME  #/ 

°UT  SEI^  LIST ('WHAT  IS  TnE  FILENAME?  ' ) : 
SET  LISTEN)? 

/*  PROCESS  OPTION  aL  D*IYF  PPEFIX  */ 

I  =  I NDEX ! FN , ; 

IF  1=0  THEN 

do; 

HIEILE. DRIVE  =  t: 

LCVILE. DRIVE  =  05 
?nd; 

ELSE 

do; 

HI ‘‘’ILF. DRIVE  =  i; 
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LO^ILE. T; 177  =  1 J 
TV  =  SU^  STH  {  FM  .1  +  1): 

eve  ; 

/*$  1<’*ISM'P<;  4  vp  T^VPl"!  */ 

I  =  ’  INDEX '>N.  \  ')  : . 

17  T°EV 

TV  =  SlTBEm?  (tv , l , i-i ) : 
EIFILE  .Tv Af^E  =  "PV; 

LO TILT. TV AMT  =  ^V? 

FI^ILE.TTY^  = 

LOTI Lr . TTYPT  =  'OBJ'; 

return; 

END  ctilt: 


/  jfcJJtsJtsJejy#  a*#####  ah#  aft###########*;:##  a?- #**###  sic##*;:#  ###?*: *!r#a!s  # 

*  TCHO:  PROP  TO  TCHC  CYD  LIVE  59CK  * 

*  TO  78M?  MCMITOE.  * 

TCFO  : 

?roc; 

ECL 

Njjvrnp.  TIXTOfoI, 

EXTRA  7IX7D(SU 

/#  lNrT  puTTT’3-  ?T"  */ 

'•|*P  '-'=2 ; 

EXT7  A=1 ; 

/*  07'”  C^D  LINE  T’OM  M0NTTOR  */ 

V a  TT=TRUFJ 

DO  ’.VRILE  (V»IT=??.UF)  J 
0=RDRUR  •'  ) ; 
rMTBUFf  vn1'0?  )=o : 

NYPR=NMPE  -*-l ; 

/*  ECwO  RACK  */ 

IT  (C=C)  THEM 

DO  WHIL?  f3XTRA~=N*!BR ) J 
C=CYDBU7  EXTRA i? 

r i'll  wtpuv(c); 

WAI T=7ALSE: 

end; 

ELSE 

v?IT=TRtje: 

end; 

RETURN* 

END  TORO; 
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'  ***?###  #####  ft######*, :#####  ###########*£#### 

#  prr>0  mQ  0 v v  '^'PC**1  ~  0  N  I J  <* 

*  *  Frf' MATED  RECORD.*  *’  "  * 

#i<«:t:!*j!tJSi<sj!!*trtUC!Ct»SJi!>!extj',!>;t)j!S1‘5iei*X!tt  >)t$:<fs!(S(!r,;>SJ£s£  j*>*JS:)iis]ss)t>js:)tsj::£sS:,,esS  a*###*:*!*  / 


GET?.  EC: 

??cc; 

crpmt*i: 

■*.«  it=t?ue; 

/*  CH^CF  EC*  RECEIVE  ^A*  FROM  COM  OR  TTY  */ 
DO  'WHILE  {  ELAG=TPUE  )  « 

IE  3RSAXM*TRUE  THEN 

cc; 

flao=*alse: 

wait=false; 

end; 

IF  ,'ECTTY  =T?UF  TF^N 

*  "  Tjr>  •  * 

CARDED?  ) ? 

T TC?UF ( C*CNT)=C: 

I'p  C=CR  THEN 

flag=falsf; 

C’'CNT=Ct5CNT-ui; 

end: 

EN*5  /*  DC  WHILE  */ 

return : 

END  GETREC; 


*  DOLAST:  PP.OC  TC  SEND  FINAL  ACE  * 

*  TO  28000  AWD  SAVE  FILES.  * 

DOLAST: 

PROC: 

/*  CH^CF  <CFSUM'>  FOR  TAT»  FIELD  */ 

tm?=»ccum; 

accuM=0; 

CHI  =  RFCBUF ( 7 ) J 
CH2  =  PECBTJF(  3)  J 
CALL  aTO°EX: 

IF  ~  '  TMP=ACCOM)  THEN 

do: 

c='7': 

CALL  WRPUN(C); 

return; 

end: 
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'*  SEVD  A  OK  '0'  CPAR  TO  ZD000  */ 

c  =  'n' ; 

CALL  VP  PUN ' c ) : 


SAVE  PV®V  PR 0M  FILE  HIFIL2 )  */ 
uu^ru®  =  rivirp'?n,PUFRYT.i5); 

IP  ®T1=P  TREN 

do; 

®U*  SKIP  LIST('NO  TATA  TRANSFERRED ' ) 
0  ’LL  DELETE (  *00” 'HI PILE  )  l‘ 

CALL  DFLETF<  ADDR ' LO®ILE  > ) ; 

CALL  REBOOT'); 

pud; 

?Ti=o; 

10  I  -  0  TO  NOMRUT-i; 

C«LL  SETDTA  (  8  DPP  f  EYUBUF ■'  ?T1 )  )  )  J 
PT1=PT1  +  BUFTYT; 

IP  VRSEO  ‘  ADPR'HIFILE)  )~-=0  THSM 

do; 

PUT  SKI®  IISTf 'DISKFULL ' ) ; 
CALL  DE®COT '  )  t 

pud; 

fmd; 

/*  SA^E  ODD  PROM  PILE  !LO*ILE)  */ 

MUVBUP  =  DTPIDP ( PT2 ,BUF5YT, 15 ) ; 

?T2=0; 

DO  I  «  0  TO 

C«LL  SFTDMA  (  JDDP  ( 0DD3UP ■'  PT2  )  )  ); 

PT2  =  PT2  +  BUFPYT; 

I®  WRSEQ' 8PDR'LOFILF) )~=0  THEM 

do; 

PUT  SKI?  LI5T(  'DISK  FULL  ' )  ; 

call  ®??oot''  ) ; 
fmd; 

end; 

wait=?alse; 

PUT  SKI?  LIST(  'TRANSFER  COTPLFTF.'); 

return; 

ENT  dclast; 
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/  *:(:  V  Vi;  V#  V##########  ######  V###########  ##############  ### 

*  STR’ECs  PROC  mC  STORE  THE  RECEIVE?  * 

*  ^ECO^o  Iw  PILE  BUFFEFS.  # 

*  V  *  #*#  *  *■  *W#W  ####«###  #  #  #  #  V  #*  >;r  i;c  ######  :) :*#  *  #  V#  ###1(1#  #1*1*1;:  / 


S  TEE  PC  ! 

??cc; 

IF  CRCNT=9  THEN 

call  eclast; 

ELSE  IF  CPCNT=41  '’’HEN 
CALL  passim: 

ELSE 

do; 

C= '7 ' ; 

CALL  WRPTJV'C); 
wm?; 

return; 

end; 


/#:*!*:S!*i*i*i*>*!*###iOt:*#:*#i*#j*:*#<ti*#>S#l{ri*#i*>S####j*iSJSCi*i*##>Si*#:SiSiS:S::*:f:#!* 

555  DASSEM*  PP.OC  TO  DISASSEM5LF  ONE  RECORE  * 

*  ANT  STORE  I  '4  PROPER  RUFFE?.  * 

VIM*:*!*:*:*!*#!*!*!*#!*:*:*:*#!*!*:*!*:*:*###:*  #i*:S1S:?=*>*#J*:;:##i*3SI*5*##:*#i*#i::###3*  f 

LASS  EM: 

prcc; 

oex=i; 

accum=<?; 

?ti=i; 

PT2-1? 

/#  OBTAIN  <ADDRXCOUN?>  CXSUM  */ 

EC  1=0  TO  2; 

CHI  =  RECOUP ( HEX  1  * 

CH2  =  RECPUF^DET+1 1 ; 

BEX  =  DF’X  +  2J 
CALL  ATOHFXJ 

end; 

/*  OBTAIN  <CXSUM>  */ 
tmp=accuu; 

A.CCDM=0; 

CHI  =  RPC3UF'BEX): 

CH2  =  RFCBUFf  OFX+l ) * 

EEX  =  DFX  +  2; 

CALL  ‘TOHSX? 

/*  COMPARE!  CKSUMS  AND  REPORT  EpROF.  V 
IF  'TMP=ACCUM)  THEN 

do; 


ymfr  ,  •  ».•  «a*-.  •  •  I 
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call  'jP?un(c'; 

RETURN ; 

end; 


•'*  D  IS  A  SSE^RLE  2T-PYTF  P^CK^E  ?■  'ID  STOKE  *' 

a  ccuM  =  o: 
ro  1=1  to  15; 

chi  =  pec^ufoex)  ; 

CH2  =  p.ecpuf'dex+i); 

TEX  =  DEX  +  2; 

r»u  atofex; 

/*  STORE  IN  PROPER  PUFFER  */ 

IF  CDD*7N=TRUE  THEN 
to; 

EVNEUF' ?T1 )  -HIXY.£L; 

HTXV AL=0; 

p?i«p?i*i; 

oddevv=ealse; 

fnt; 

else 

do; 

0T'D3UFf?T2)=HEXVAL; 

FEXV»L=o; 

p-T2=PT2^i; 

oddevn^ue; 

end; 

end; 

/*  COMPARE  CKSUI^S  AND  REPORT  ERRORS  */ 
TI“P»ACCW; 

?ccum=c?; 

CHI  =  REC3UE' DEX ' ; 

CH2  =  PFCBCTOEX+l'J 
CALL  ATOHEX; 

IF  ~  ;  TMP=ACCU!*)  THFN 

do; 

n-  '7 ' ; 

CALL  WRPUN(C)? 

petupn; 

end; 

ELSE 

do; 

c='o'; 

CALL  WRPUN(C); 

¥* it=false; 
return; 
end; 
end  d«ssem; 
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'*  T  NIT  ECB'S  *' 

HIEILE.FEXT  =  0  * 

LCEIL^FEXT  =  3; 

HI TI LE . CREC  =  0? 

LOFILE.  CP.FC  =  0; 

/*  OBTA IM  FILENAME  AND  CHECK  FOR  EXISTING  FILES  */ 

CALL  ''FILE* 

IF  ' SE*F (  *nDF  (HTFILE))~=-1  !  SEA  R{  s DDR ' LOFILE ) )  ''=-1 )  THEN 

do: 

PUT  STI?  LIST  ( 'TELETE  OLD  FILES?  ( Y/N ) ' ) » 

GET  LIST'  ?NSWFP.); 

IF  1  ANSWER  ~=  'Y')  THEN 

do; 

C ’LL  DELETE f ADDS (HI  FILE) ) : 

CALL  DELETE- ADDR (LOFILE) ) J 
END* 

ELSE 

CALL  REBOOT ( ) : 

end; 

'*  CPTN  NEW  FILES  */ 

IF  'MAKEf  ADDR'HIFILZ)  )=-l  f  MAKE ( aDDF. ( LOFILE)  )*-l  5  THEN 
do; 

PUT  SKI H  LIST('vO  DIRECTORY  SPATE'); 

CALL  REE00TO: 
ent; 


*  MAIN  CODE  SEG:  LOOK  FOR  '3;',  ECHO  * 

*  ALL  P - CX  THRU  PUN  PORT;  SEND  '9',  * 

*  SEND  '0',  AND  BEGIN  STORI NG-D IS A.SSEM-  * 

*  3LINC  TECTRONIX  FORMAT  TO  THE  TWO  * 

*  OBJECT  FILES .  * 

Jit*#*###*!*###  Sc*###  / 


CDDEVN  =  TRUE; 

wait  *  tpue; 


/*  WAIT  FOR  '3;  '  */ 

DO  WHILE  'WAIT=TRUE); 

IF  BESA.KM=TPUE  THEN 


CALL  dolast; 
IF  -ECTTY  =  TRUE  THEN 


do; 

C=RDRDR  ' )  J 
I*(C«'B')  THEN 


do; 
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CsTD0  TV 
IF  1  C=  ‘ 


ELSE 


J  TH:S 

re; 

CI'OBUF  1)  = 
CMDBUF  2)-- 
CALL  ECHC ! 
tf.*IT=Fl'!SJ 

end; 

*«iT=rruEi 


end: 

end;/*  DO  tfHILE  */ 

/*  RECEIVE  RECORDS  AND  CONVERT  FOR  STORAGE  */ 

*ait=true; 

DO  vhil?(v«it=tf.u*)  ; 

CALL  GETREC; 

CALL  ST?a*C? 

fnd; 

END  0EJ7.fr; 


4. 


73LI3  MOGULS 


^  '73113' 

TITLE  'ASM  ROUTINE  LIE  ?OR  ZeXFEft' 

!  #  i?  >y  *  if  #  *  j}r  # # #  #  # if  if  # $ >!'•  <(  #  #  <s  *  -'f ifr  #  >!t  *  #  #  #  *  #  sjt #  5?  *  s$t  s)t  :£  *  !)t  Jjt  *:  SJC  if  #  ❖  #  $  *?-  #  s*  #  <s  —  #  s¥  $c  * 

*  DECEPTIONS  * 

5J-.  5>  !js  *  #  -4t  S*  *  SJ!  #  *  #  $  #  lie  #  #  *  *  n<  #  S!  *  if  *  $  Sjt  v  *  *  *  sjt  sjc  #  *  i?  S}t  >p  «  *  *  »!  $  #  Jjt  tf  J*  #  #  #  #  3f  #  sp  #  Sit  Jjt  *  *  #  Jjt  SS 

PUBLIC  17 "CTTY  {.RETURNS  '1'  FOR  RFC  CHAR 

PURL I C  A mOHEX  { CONVERTS  TWO  ASCII  BYTES  TO  ONE 

PUBLIC  POST  {ERROR  SIGNAL 

PUBLIC  AOCUM  { ACCUMULATOR  FOR  CXSUM 

PUBLIC  REXVAL  ;  RETURN  OF  HEX  EYTE 

PUBLIC  AN SR  {MAILBOX  FOR  PL/I  RETURN 

PUBLIC  m  {FIRST  ASCII  CHAR 

PUBLIC  CU2  {SECOND  ASCII  CHAR 

J)CJ?  is#*#  ###**»**  :;s#3¥*5!s#*#5*  »!=**«#)(<**###»*  #*#5**##^*##**## 

*  SOUATSS  - 

Jt***###***##*  **#*##£«*#**  S**#***##*#**##*  *#*#**£ 


TPOF.T  FCO  0F5H  {TTY  ( RDR )  CMD  PO^T  ODE 

POST  P*  1  {ERROR  FLAG  FOR  ZSXFEP.  FOR  BAD  CH 

*CCUM  DB  2  {ACCOM  VALUE  FORR  CHECK  SUMS 

HFXYAL  DP  1  {RETURNED  HEX  BYTE  FROM  2-ASCII 

AN  SR  PR  1 

CHI  D*  1  {PASSED  CHAR  FROM  BUFFERS 

CH2  DP  1  {SAME 

##  slt:**#####^*#####*#*#***#*##*:*#*#**  **##*#*#*  ***#*•  *******5:: 

*  P^CTTY:  ROUTINE  TO  FACILITATE  DIRECT  * 

*  I/O  STATUS  READ  TO  TTY  PORT.  * 


P.ECTTY : 

AN  I 

0 

{CLEAR  REG  A 

IN 

TPORT 

{READ  TTY  CMC  PCRT  STA 

AN  I 

31H 

{ CHECX  FOR  RECEIVE  CHA 

JZ 

FI  N I 

{NO  CHAR  RECEIVED 

MVI 

«  ,F1H 

{YES,  CHAR  RECEIVED 

FI  MI : 

MOV 

L.A 

MVI 

H.<? 

{LOAD  ANSWER 

SHLD 

RET 

A  NS? 

{STORE  IN  MAILBOX 
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f-  f-  #  #  5^  SJ«  #  3*#!)c  if  if  if  if  *  if  if  if  if  if  *  if  s*  5*s  ij:  "•  #  >!•  j!‘.  sfr#  s!e  *, '-if  if  if  if  S«  4:  ;!:  if  if  :<<  if  if  &  if  sj:  if  if  #•(£  if  *  Jlis^sjt  if  sjc  s',:  ff 

*  1 m0EE7 :  ROUTINF  TC  CONVERT  TWO  ASCII  * 

*  c?  I*I?C  CM!  HiX  2!?S.  * 

*  #  #5*:  ?*r#:fe  v-;*?  #  s’tsjs  s'*#  #  #  s!*#  ##  s^ije  3{t^C5^  s|c  sje  #  $  s}c ;':  t;?#  $  sjs  #  #  jjs  # #  sje  s£  sj;  4?  #  $  $gsjt$  #  # a£ ;■;  :;.£ 


^-rnpry.  c*LL 

CONPYT 

JCO.MVEFT  FIRST  fH»F. 

CPI 

P^FH 

5  FIRST  BYTE  CONVERT 

T  7 

O  ili 

DCNF 

;cuit 

tov 

r  E 

; STORE  FIRST  NIBBLE 

LDA 

Cn2 

STs. 

CHI 

5GET  SECOND  CHAR 

CALL 

CCN3YT 

I  CONVERT  SECOND  CHA : 

CPI 

0r’FH 

•SECOND  BYTE  CCNVER' 

JZ 

DONE 

;ouit 

MQV 

C  .  A 

;TEMP  STORE  SECOND  i 

tov 

R  s  L 
RAL 
RAL 

A.E 

;gst  high  nibble 

PAL 

;ROT»TF  TO  HIGH  NIB 

AN  I 

0F0H 

;clr  LOW  NIBELE 

ADD 

c 

•FORM  HEX  BYTE 

ST" 

DONE:  RET 

• 

H  VX  V  s  L 

J RETURN  HFX  BYTE 

» 

.  .!• 

t  '*’ 

;£  S^str^e  #j}t  #  3J:  if  Jj!3j! 

j‘.#s)tj}:)jt  sirajssjeafss^sjt  ajc  sfe  >}e  a)e  sVaJe  a#c 

CCNBYT:  LD s 

CHI 

;get  ascii  ch*h 

CPI 

30H 

;no  char  s3ch 

JC 

FRR 

CPI 

3  AH 

:cx  IF  DIGIT 

JC 

ok 

;yes,  is  digit 

C«I 

41H 

; CK  IF  'A'  OP  GREAT: 

JC 

FRR 

CPI 

4^H 

? CK  IF  <'?' 

JMC 

Er? 

CK:  ANI 

(3TP 

;NEED  LOWER  NIBBLE 

TO  7 

E.A 

;add  to  accumulator 

TV  I 

D ,  0 

LHLD 

ACCUT 

DAD 

p 

;add  new  byte 

SHLD 

TRR •  RT? 

ACCUT 

;store 

jJtsScsjtw**!**##**^**########**:*##*#*#####*#*#!*##**#*'-****##**###****#* 
*  * 
*#*  >-  #*  *  **#  £  s**  X!  *  *  #<t  A##  A  *>*  #  ###  W *  *>;•*  * *f #  ###*#«!#  >*  sjtxt  $ 

END 


a  f.7  *  **  . 


C.  CPVXFE  PROS  =  T  I  s  f  I ^ 


1.  ZS000  travsfer  "ODULE 


zeoooa.sm  2.0? 

I.OC  0*J  CODE  STMT  SOUFCE  STATEMENT 

1  TRANSFER  MODULE 
ALISTON  iTTY 


CONSTANT 

PCRTAD  :=  %EED9 
PORTAC  :=  TFFE3 
PT30M_S  I  2  :=  %1005 

MPM  START:-  ^6000 
TXR'  :=  0 

FX^C  :=  ^00EC 


$REL  0 
SLOP  AL 

0000  TRANS  PROCEDURE 


*  # 

*  TR'NS:  TRANSFERS  OBJECT  COTE  IN  * 

*  Z8000  MEMO-Y  TO  INTEL  CP/M  * 

*  OBJECT  FILE  CM  DISK.  * 

*  * 


ENTRY 

7000 

2171 

LD 

R1  ,<*  ?RCM_SIZ 

!  SET 

TRANS  LIMIT  ! 

0002 

1005 

00?4 

2102 

LD 

P.2  ,*MSM_START 

!  SET 

MEMORY  START  ! 

7006 

6000 

!  A  DDF 

FSS  ! 

20CTQ 

8D38 

CLP 

R3 

!  ***  MAIN  LOO?  SENDING  BYTES  ***  ! 


DO 


000  A 

2029 

LDP 

RL0.9R2 

f 

GET  BYTE  FROM  MEM  ! 

70CC 

PFF8 

C'LF 

SNDCHR 

f 

SEND  CHAT.  TO  CPM  ! 

000E 

A  920 

IMC 

R2,#l 

• 

ADVANCE  ADR  1  EYTF  ! 

0010 

A930 

INC 

D3  ,#1 

! 

INCREMENT  COUNTER  ! 

0012 

9B13 

r? 

*3.  PI 

t 

DONE?....  ! 

0014 

F601 

JR 

Z,  FINI 

? 

YES,  DONE  t 

0016 

ESF9 

or 

FINI  : 
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001 P 

21*1 

ID 

P 1 , *FXFC 

3  Cl  A 

tic 

ins 

JP 

^"1 

001F 

END  TP  SNS 

SCI? 

SNDCHR  PPrcFfCRE 

1 

*  SNDCHR: 

SENDS  SIND 

IF  BYT!  TO  INTEL  * 

* 

CP/M  » FT E .*. 

STATUS  CHECK .  * 

if  jjr*  s!'  *  #  # 

*  if  *  ij!  if  if  if  if  Jj!  if  if  in  *  ajc  if  #  sjc  if  if 

fntry 

?Slr 

3  A04 

IMP 

RR0. PORTA C 

l  OFT  STATUS  ! 

7227 

FFD? 

7222 

i  g na 

B  IT^ 

?EC\*TX?. 

!  CK  IF  TRANSMI’ 

0024 

f67C 

JR 

1 , SNDCHI 

0026 

3A96 

OUTP 

■’CRTAD  ,RL0 

!  SEND  3YTE  ! 

-023 

F^pa 

002A 

9F08 

P  rT 

0S2C 

2ND  SNDCHR 

2ND  TP'NSFFF 


0  errors 

Assembly  complete 
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